VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form frmMain 
   BackColor       =   &H0044342E&
   BorderStyle     =   0  'None
   Caption         =   "Odyssey Classic"
   ClientHeight    =   13020
   ClientLeft      =   0
   ClientTop       =   15
   ClientWidth     =   23265
   Icon            =   "frmMain.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   868
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   1551
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame storeframe 
      BorderStyle     =   0  'None
      Height          =   1935
      Left            =   1200
      TabIndex        =   185
      Top             =   10320
      Visible         =   0   'False
      Width           =   3135
      Begin VB.CommandButton BrowserClose 
         Caption         =   "Close"
         Height          =   375
         Left            =   0
         TabIndex        =   187
         Top             =   0
         Width           =   3135
      End
      Begin SHDocVwCtl.WebBrowser store 
         Height          =   1215
         Left            =   0
         TabIndex        =   186
         Top             =   360
         Width           =   3135
         ExtentX         =   5530
         ExtentY         =   2143
         ViewMode        =   0
         Offline         =   0
         Silent          =   0
         RegisterAsBrowser=   0
         RegisterAsDropTarget=   1
         AutoArrange     =   0   'False
         NoClientEdge    =   0   'False
         AlignLeft       =   0   'False
         NoWebView       =   0   'False
         HideFileNames   =   0   'False
         SingleClick     =   0   'False
         SingleSelection =   0   'False
         NoFolders       =   0   'False
         Transparent     =   0   'False
         ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
         Location        =   "http:///"
      End
   End
   Begin VB.PictureBox picDrop 
      Appearance      =   0  'Flat
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   1320
      Left            =   3480
      ScaleHeight     =   1290
      ScaleWidth      =   3225
      TabIndex        =   160
      Top             =   5880
      Visible         =   0   'False
      Width           =   3255
      Begin VB.TextBox txtDrop 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         ForeColor       =   &H009AADC2&
         Height          =   285
         Left            =   120
         TabIndex        =   161
         Top             =   480
         Width           =   3015
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Cancel"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   34
         Left            =   120
         TabIndex        =   164
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Ok"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   35
         Left            =   1680
         TabIndex        =   163
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label lblDrop 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "Drop how much?"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   162
         Top             =   120
         Width           =   3000
      End
   End
   Begin VB.PictureBox pictotem 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      ForeColor       =   &H80000008&
      Height          =   480
      Left            =   11145
      ScaleHeight     =   450
      ScaleWidth      =   450
      TabIndex        =   181
      Top             =   3480
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.PictureBox GodMenu 
      Appearance      =   0  'Flat
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   4575
      Left            =   10080
      ScaleHeight     =   4545
      ScaleWidth      =   2385
      TabIndex        =   170
      Top             =   4320
      Visible         =   0   'False
      Width           =   2415
      Begin VB.ListBox lstscripts 
         Height          =   1815
         Left            =   0
         TabIndex        =   178
         Top             =   2280
         Width           =   2775
      End
      Begin VB.Label Label7 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Edit Mapsay"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   180
         Top             =   1560
         Width           =   2175
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Edit Map"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   177
         Top             =   1920
         Width           =   2175
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Edit Part Map"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   175
         Top             =   1200
         Width           =   2175
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Edit JoinMap"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   174
         Top             =   840
         Width           =   2175
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Close"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   720
         TabIndex        =   173
         Top             =   4200
         Width           =   975
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Edit Script Click Tile"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   172
         Top             =   480
         Width           =   2175
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Edit Script Tile"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   171
         Top             =   120
         Width           =   2175
      End
   End
   Begin VB.Timer Attacktimer 
      Interval        =   250
      Left            =   9840
      Top             =   4680
   End
   Begin VB.PictureBox picHelp 
      Appearance      =   0  'Flat
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   3345
      Left            =   19560
      ScaleHeight     =   3315
      ScaleWidth      =   3750
      TabIndex        =   48
      Top             =   3240
      Visible         =   0   'False
      Width           =   3780
      Begin VB.Label lblDropObject 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "Drop Object - Right Click"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   225
         Left            =   120
         TabIndex        =   55
         Top             =   2280
         Width           =   3495
      End
      Begin VB.Label lblRun 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "Run - Hold Shift"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   225
         Left            =   120
         TabIndex        =   52
         Top             =   1320
         Width           =   3495
      End
      Begin VB.Label lblUseObject 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "Use Object - Double Click"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   225
         Left            =   120
         TabIndex        =   56
         Top             =   2040
         Width           =   3495
      End
      Begin VB.Label lblPickUp 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "Pick Up Object - Enter"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   225
         Left            =   120
         TabIndex        =   54
         Top             =   1800
         Width           =   3495
      End
      Begin VB.Label lblBroadcast 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "If you need more help, ask other players  by typing /broadcast <message>"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   465
         Left            =   120
         TabIndex        =   57
         Top             =   2520
         Width           =   3495
      End
      Begin VB.Label lblAttacking 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "Attack - Ctrl"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   225
         Left            =   120
         TabIndex        =   53
         Top             =   1560
         Width           =   3495
      End
      Begin VB.Label lblMovement 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "Move - Arrow Keys"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   210
         Left            =   120
         TabIndex        =   51
         Top             =   1080
         Width           =   3495
      End
      Begin VB.Label lblInstructions 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "Welcome to the Odyssey Online Classic!  This is a basic guide to the game."
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   540
         Left            =   120
         TabIndex        =   50
         Top             =   480
         Width           =   3495
      End
      Begin VB.Label lblWelcome 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "Welcome Adventurer!"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   120
         TabIndex        =   49
         Top             =   120
         Width           =   3495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Close"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   20
         Left            =   3000
         TabIndex        =   58
         Top             =   3120
         Width           =   615
      End
   End
   Begin VB.PictureBox picSellObject 
      Appearance      =   0  'Flat
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   3495
      Left            =   600
      ScaleHeight     =   3465
      ScaleWidth      =   5025
      TabIndex        =   148
      Top             =   6600
      Visible         =   0   'False
      Width           =   5055
      Begin VB.Frame fraSellObject 
         BackColor       =   &H0044342E&
         Caption         =   "Sell Object"
         ForeColor       =   &H009AADC2&
         Height          =   2655
         Left            =   120
         TabIndex        =   149
         Top             =   120
         Width           =   2535
         Begin VB.PictureBox picSellObjectDisp 
            Appearance      =   0  'Flat
            AutoRedraw      =   -1  'True
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            BorderStyle     =   0  'None
            ForeColor       =   &H009AADC2&
            Height          =   480
            Left            =   1080
            ScaleHeight     =   32
            ScaleMode       =   3  'Pixel
            ScaleWidth      =   32
            TabIndex        =   150
            Top             =   360
            Width           =   480
         End
         Begin VB.Label cptSellName 
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            Caption         =   "Name:"
            ForeColor       =   &H009AADC2&
            Height          =   195
            Left            =   120
            TabIndex        =   154
            Top             =   1080
            Width           =   465
         End
         Begin VB.Label lblSellName 
            BackColor       =   &H0044342E&
            ForeColor       =   &H009AADC2&
            Height          =   255
            Left            =   720
            TabIndex        =   153
            Top             =   1080
            Width           =   1695
         End
         Begin VB.Label cptSellPrice 
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            Caption         =   "Price:"
            ForeColor       =   &H009AADC2&
            Height          =   195
            Left            =   120
            TabIndex        =   152
            Top             =   1440
            Width           =   405
         End
         Begin VB.Label lblSellPrice 
            BackColor       =   &H0044342E&
            ForeColor       =   &H009AADC2&
            Height          =   255
            Left            =   720
            TabIndex        =   151
            Top             =   1440
            Width           =   1695
         End
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Sell"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   19
         Left            =   720
         TabIndex        =   159
         Top             =   3000
         Width           =   735
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Cancel"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   22
         Left            =   3600
         TabIndex        =   158
         Top             =   3000
         Width           =   735
      End
      Begin VB.Label lblSellNPCName 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   2760
         TabIndex        =   157
         Top             =   120
         Width           =   2175
      End
      Begin VB.Label lblSellNPCTalk 
         BackColor       =   &H0044342E&
         ForeColor       =   &H009AADC2&
         Height          =   2295
         Left            =   2760
         TabIndex        =   156
         Top             =   480
         Width           =   2175
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Sell All"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   59
         Left            =   1920
         TabIndex        =   155
         Top             =   3000
         Width           =   1215
      End
   End
   Begin VB.PictureBox picRepair 
      Appearance      =   0  'Flat
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   3495
      Left            =   5880
      ScaleHeight     =   3465
      ScaleWidth      =   5025
      TabIndex        =   132
      Top             =   9000
      Visible         =   0   'False
      Width           =   5055
      Begin VB.Frame fraRepairObj 
         BackColor       =   &H0044342E&
         Caption         =   "Repair Object"
         ForeColor       =   &H009AADC2&
         Height          =   2655
         Left            =   120
         TabIndex        =   133
         Top             =   120
         Width           =   2535
         Begin VB.PictureBox picRepairObjectDisp 
            Appearance      =   0  'Flat
            AutoRedraw      =   -1  'True
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            BorderStyle     =   0  'None
            ForeColor       =   &H009AADC2&
            Height          =   480
            Left            =   1440
            ScaleHeight     =   32
            ScaleMode       =   3  'Pixel
            ScaleWidth      =   32
            TabIndex        =   134
            Top             =   360
            Width           =   480
         End
         Begin VB.Label lblRepairCondition 
            Alignment       =   2  'Center
            BackColor       =   &H0044342E&
            ForeColor       =   &H009AADC2&
            Height          =   255
            Left            =   840
            TabIndex        =   142
            Top             =   2160
            Width           =   1575
         End
         Begin VB.Label cptRepairCondition 
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            Caption         =   "Condition:"
            ForeColor       =   &H009AADC2&
            Height          =   195
            Left            =   120
            TabIndex        =   141
            Top             =   2160
            Width           =   705
         End
         Begin VB.Label lblRepairCost 
            Alignment       =   2  'Center
            BackColor       =   &H0044342E&
            ForeColor       =   &H009AADC2&
            Height          =   255
            Left            =   840
            TabIndex        =   140
            Top             =   1800
            Width           =   1575
         End
         Begin VB.Label cptRepairCost 
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            Caption         =   "Cost:"
            ForeColor       =   &H009AADC2&
            Height          =   195
            Left            =   120
            TabIndex        =   139
            Top             =   1800
            Width           =   360
         End
         Begin VB.Label lblRepairDurability 
            Alignment       =   2  'Center
            BackColor       =   &H0044342E&
            ForeColor       =   &H009AADC2&
            Height          =   255
            Left            =   840
            TabIndex        =   138
            Top             =   1440
            Width           =   1575
         End
         Begin VB.Label cptRepairDurability 
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            Caption         =   "Durability:"
            ForeColor       =   &H009AADC2&
            Height          =   195
            Left            =   120
            TabIndex        =   137
            Top             =   1440
            Width           =   690
         End
         Begin VB.Label lblRepairName 
            Alignment       =   2  'Center
            BackColor       =   &H0044342E&
            ForeColor       =   &H009AADC2&
            Height          =   255
            Left            =   840
            TabIndex        =   136
            Top             =   1080
            Width           =   1575
         End
         Begin VB.Label cptRepairName 
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            Caption         =   "Name:"
            ForeColor       =   &H009AADC2&
            Height          =   195
            Left            =   120
            TabIndex        =   135
            Top             =   1080
            Width           =   465
         End
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Repair All"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   16
         Left            =   1920
         TabIndex        =   147
         Top             =   3000
         Width           =   1215
      End
      Begin VB.Label lblRepairNpcTalk 
         BackColor       =   &H0044342E&
         ForeColor       =   &H009AADC2&
         Height          =   2295
         Left            =   2760
         TabIndex        =   146
         Top             =   480
         Width           =   2175
      End
      Begin VB.Label lblRepairNPCName 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   2760
         TabIndex        =   145
         Top             =   120
         Width           =   2175
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Cancel"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   57
         Left            =   3600
         TabIndex        =   144
         Top             =   3000
         Width           =   735
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Repair"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   56
         Left            =   720
         TabIndex        =   143
         Top             =   3000
         Width           =   735
      End
   End
   Begin VB.PictureBox picBank 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   4695
      Left            =   6720
      ScaleHeight     =   311
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   223
      TabIndex        =   127
      Top             =   4080
      Visible         =   0   'False
      Width           =   3375
      Begin VB.VScrollBar ScrollBankPage 
         Height          =   3135
         Left            =   3000
         TabIndex        =   167
         Top             =   360
         Width           =   255
      End
      Begin VB.PictureBox PicBankInv 
         AutoRedraw      =   -1  'True
         BackColor       =   &H00000000&
         BorderStyle     =   0  'None
         ForeColor       =   &H00000000&
         Height          =   3270
         Left            =   210
         ScaleHeight     =   218
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   180
         TabIndex        =   165
         Top             =   360
         Width           =   2700
      End
      Begin VB.Label BankPageNum 
         BackColor       =   &H0061514B&
         BackStyle       =   0  'Transparent
         Caption         =   "Page:"
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   240
         TabIndex        =   166
         Top             =   3720
         Width           =   1695
      End
      Begin VB.Label lblCoins 
         BackColor       =   &H0044342E&
         Caption         =   "Gold Coins:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   131
         Top             =   3960
         Width           =   1095
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Close"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   17
         Left            =   120
         TabIndex        =   130
         Top             =   4320
         Width           =   2895
      End
      Begin VB.Label lblBank 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "[]"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   129
         Top             =   0
         Width           =   2895
      End
      Begin VB.Label lblGoldCoins 
         BackColor       =   &H0044342E&
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   1200
         TabIndex        =   128
         Top             =   3960
         Width           =   1815
      End
   End
   Begin VB.PictureBox Quest 
      Appearance      =   0  'Flat
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   3375
      Left            =   12360
      ScaleHeight     =   3345
      ScaleWidth      =   5025
      TabIndex        =   119
      Top             =   480
      Visible         =   0   'False
      Width           =   5055
      Begin VB.Frame Text 
         BackColor       =   &H0044342E&
         ForeColor       =   &H009AADC2&
         Height          =   2655
         Left            =   160
         TabIndex        =   120
         Top             =   120
         Width           =   4695
         Begin VB.Label Title 
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            Caption         =   "Title:"
            ForeColor       =   &H009AADC2&
            Height          =   195
            Left            =   1920
            TabIndex        =   122
            Top             =   240
            Width           =   345
         End
         Begin VB.Label Body 
            AutoSize        =   -1  'True
            BackColor       =   &H0044342E&
            Caption         =   "This is the body of the quest text. If this text shows up, talk to an administrator please."
            ForeColor       =   &H009AADC2&
            Height          =   390
            Left            =   120
            TabIndex        =   121
            Top             =   600
            Width           =   4450
            WordWrap        =   -1  'True
         End
      End
      Begin VB.Label Response3 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Maybe?"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   2520
         TabIndex        =   126
         Top             =   3000
         Width           =   1095
      End
      Begin VB.Label Response1 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Yes"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   125
         Top             =   3000
         Width           =   1095
      End
      Begin VB.Label Close 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Close"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   3960
         TabIndex        =   124
         Top             =   3000
         Width           =   735
      End
      Begin VB.Label Response2 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "No"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   1320
         TabIndex        =   123
         Top             =   3000
         Width           =   1095
      End
   End
   Begin VB.PictureBox picMapEdit 
      Appearance      =   0  'Flat
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   6105
      Left            =   8400
      ScaleHeight     =   6075
      ScaleWidth      =   3705
      TabIndex        =   93
      Top             =   5640
      Visible         =   0   'False
      Width           =   3735
      Begin VB.VScrollBar MapScroll 
         Height          =   2940
         Left            =   3550
         TabIndex        =   96
         Top             =   390
         Width           =   135
      End
      Begin VB.PictureBox picTile 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H00000000&
         ForeColor       =   &H80000008&
         Height          =   510
         Left            =   600
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   95
         Top             =   3710
         Width           =   510
      End
      Begin VB.PictureBox picTiles 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H00000000&
         ForeColor       =   &H80000008&
         Height          =   2940
         Left            =   75
         ScaleHeight     =   194
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   230
         TabIndex        =   94
         Top             =   360
         Width           =   3480
         Begin VB.Shape Selectsize 
            BorderColor     =   &H000000C0&
            Height          =   480
            Left            =   0
            Top             =   0
            Width           =   480
         End
      End
      Begin VB.Label lblcopylayer 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Copy Layer"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   210
         Left            =   2040
         TabIndex        =   179
         Top             =   5760
         Width           =   1095
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Fill"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   210
         Index           =   8
         Left            =   600
         TabIndex        =   118
         Top             =   4200
         Width           =   510
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Grass"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   210
         Index           =   11
         Left            =   3240
         TabIndex        =   117
         Top             =   5280
         Width           =   495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Paste"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   330
         Index           =   55
         Left            =   1740
         TabIndex        =   116
         Top             =   3720
         Width           =   615
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Copy"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   330
         Index           =   54
         Left            =   1130
         TabIndex        =   115
         Top             =   3720
         Width           =   555
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Cancel"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   330
         Index           =   5
         Left            =   1125
         TabIndex        =   114
         Top             =   4080
         Width           =   2535
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Properties"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   58
         Left            =   75
         TabIndex        =   113
         Top             =   5400
         Width           =   1110
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Att1"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   6
         Left            =   1635
         TabIndex        =   112
         Top             =   5280
         Width           =   480
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "FGTile"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   4
         Left            =   1635
         TabIndex        =   111
         Top             =   4845
         Width           =   975
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "BGTile2"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   3
         Left            =   600
         TabIndex        =   110
         Top             =   4845
         Width           =   975
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "BGTile1"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   2
         Left            =   2680
         TabIndex        =   109
         Top             =   4440
         Width           =   975
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Ground"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   0
         Left            =   600
         TabIndex        =   108
         Top             =   4440
         Width           =   975
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Upload"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   330
         Index           =   4
         Left            =   2865
         TabIndex        =   107
         Top             =   3720
         Width           =   795
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Down"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   330
         Index           =   3
         Left            =   75
         TabIndex        =   106
         Top             =   3360
         Width           =   3590
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Up"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   330
         Index           =   2
         Left            =   75
         TabIndex        =   105
         Top             =   30
         Width           =   3480
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trees"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   210
         Index           =   10
         Left            =   3240
         TabIndex        =   104
         Top             =   5520
         Width           =   495
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Sand"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   210
         Index           =   9
         Left            =   3240
         TabIndex        =   103
         Top             =   5760
         Width           =   495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Load"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   47
         Left            =   50
         TabIndex        =   102
         Top             =   4440
         Width           =   520
      End
      Begin VB.Label lblCurTile 
         Appearance      =   0  'Flat
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   120
         TabIndex        =   101
         Top             =   3840
         Width           =   480
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Ground2"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   1
         Left            =   1635
         TabIndex        =   100
         Top             =   4440
         Width           =   975
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Att2"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   7
         Left            =   2140
         TabIndex        =   99
         Top             =   5280
         Width           =   480
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Save"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   60
         Left            =   50
         TabIndex        =   98
         Top             =   4850
         Width           =   520
      End
      Begin VB.Label lblEditMode 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "FGTile2"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   5
         Left            =   2680
         TabIndex        =   97
         Top             =   4845
         Width           =   975
      End
   End
   Begin VB.PictureBox picBuy 
      Appearance      =   0  'Flat
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   7215
      Left            =   13200
      ScaleHeight     =   7185
      ScaleWidth      =   8265
      TabIndex        =   60
      Top             =   4920
      Visible         =   0   'False
      Width           =   8295
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   0
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   70
         Top             =   600
         Width           =   480
      End
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   1
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   69
         Top             =   1200
         Width           =   480
      End
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   2
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   68
         Top             =   1800
         Width           =   480
      End
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   3
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   67
         Top             =   2400
         Width           =   480
      End
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   4
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   66
         Top             =   3000
         Width           =   480
      End
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   5
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   65
         Top             =   3600
         Width           =   480
      End
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   6
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   64
         Top             =   4200
         Width           =   480
      End
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   7
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   63
         Top             =   4800
         Width           =   480
      End
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   8
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   62
         Top             =   5400
         Width           =   480
      End
      Begin VB.PictureBox GivObjPic 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   9
         Left            =   120
         ScaleHeight     =   32
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   32
         TabIndex        =   61
         Top             =   6000
         Width           =   480
      End
      Begin VB.Label lblShopName 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         Caption         =   "[]"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Left            =   120
         TabIndex        =   92
         Top             =   120
         Width           =   8055
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   36
         Left            =   7320
         TabIndex        =   91
         Top             =   600
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   0
         Left            =   720
         TabIndex        =   90
         Top             =   600
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   37
         Left            =   7320
         TabIndex        =   89
         Top             =   1200
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   1
         Left            =   720
         TabIndex        =   88
         Top             =   1200
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   38
         Left            =   7320
         TabIndex        =   87
         Top             =   1800
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   2
         Left            =   720
         TabIndex        =   86
         Top             =   3000
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   39
         Left            =   7320
         TabIndex        =   85
         Top             =   2400
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   3
         Left            =   720
         TabIndex        =   84
         Top             =   2400
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   40
         Left            =   7320
         TabIndex        =   83
         Top             =   3000
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   4
         Left            =   720
         TabIndex        =   82
         Top             =   1800
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   41
         Left            =   7320
         TabIndex        =   81
         Top             =   3600
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   5
         Left            =   720
         TabIndex        =   80
         Top             =   3600
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   42
         Left            =   7320
         TabIndex        =   79
         Top             =   4200
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   6
         Left            =   720
         TabIndex        =   78
         Top             =   4200
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   43
         Left            =   7320
         TabIndex        =   77
         Top             =   4800
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   7
         Left            =   720
         TabIndex        =   76
         Top             =   4800
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   44
         Left            =   7320
         TabIndex        =   75
         Top             =   5400
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   8
         Left            =   720
         TabIndex        =   74
         Top             =   5400
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Trade"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   45
         Left            =   7320
         TabIndex        =   73
         Top             =   6000
         Width           =   855
      End
      Begin VB.Label lblItem 
         Alignment       =   2  'Center
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Index           =   9
         Left            =   720
         TabIndex        =   72
         Top             =   6000
         Width           =   6495
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Close"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Index           =   46
         Left            =   120
         TabIndex        =   71
         Top             =   6600
         Width           =   8055
      End
   End
   Begin VB.Timer SkillTimer 
      Enabled         =   0   'False
      Interval        =   105
      Left            =   9480
      Top             =   4680
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   10
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   44
      Top             =   3855
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   9
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   40
      Top             =   3495
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   8
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   38
      Top             =   3135
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   7
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   27
      Top             =   2775
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   6
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   25
      Top             =   2280
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   5
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   17
      Top             =   1920
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   4
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   15
      Top             =   1560
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   3
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   13
      Top             =   1200
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   2
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   11
      Top             =   840
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   1
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   9
      Top             =   480
      Width           =   105
   End
   Begin VB.PictureBox picButtonLight 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   105
      Index           =   0
      Left            =   10635
      ScaleHeight     =   105
      ScaleWidth      =   105
      TabIndex        =   0
      Top             =   120
      Width           =   105
   End
   Begin MSComDlg.CommonDialog CommonDialog 
      Left            =   240
      Top             =   8400
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.PictureBox picSkills 
      Appearance      =   0  'Flat
      BackColor       =   &H0061514B&
      ForeColor       =   &H80000008&
      Height          =   3150
      Left            =   19200
      ScaleHeight     =   3120
      ScaleWidth      =   2775
      TabIndex        =   19
      Top             =   0
      Visible         =   0   'False
      Width           =   2805
      Begin VB.VScrollBar sclMagic 
         Height          =   2415
         Left            =   2670
         Max             =   100
         TabIndex        =   22
         Top             =   480
         Width           =   110
      End
      Begin VB.PictureBox picList 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H0044342E&
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   2415
         Left            =   120
         ScaleHeight     =   159
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   167
         TabIndex        =   21
         Top             =   480
         Width           =   2535
      End
      Begin VB.Label lblSkillType 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   120
         Width           =   2535
      End
   End
   Begin VB.PictureBox picStats 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   495
      Left            =   7200
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   150
      TabIndex        =   8
      Top             =   480
      Width           =   2250
   End
   Begin VB.PictureBox picViewport 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   5760
      Left            =   45
      ScaleHeight     =   384
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   384
      TabIndex        =   3
      Top             =   45
      Width           =   5760
   End
   Begin VB.PictureBox picInventory 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   2715
      Left            =   6765
      ScaleHeight     =   181
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   181
      TabIndex        =   18
      Top             =   1290
      Width           =   2715
   End
   Begin VB.PictureBox picObject 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   5985
      ScaleHeight     =   465
      ScaleWidth      =   465
      TabIndex        =   42
      Top             =   3825
      Width           =   495
   End
   Begin RichTextLib.RichTextBox ChatBox 
      Height          =   3045
      Left            =   60
      TabIndex        =   59
      Top             =   5880
      Width           =   11835
      _ExtentX        =   20876
      _ExtentY        =   5371
      _Version        =   393217
      BackColor       =   0
      ReadOnly        =   -1  'True
      ScrollBars      =   2
      Appearance      =   0
      TextRTF         =   $"frmMain.frx":1CFA
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin RichTextLib.RichTextBox TimeChatBox 
      Height          =   3045
      Left            =   0
      TabIndex        =   169
      Top             =   5880
      Visible         =   0   'False
      Width           =   11850
      _ExtentX        =   20902
      _ExtentY        =   5371
      _Version        =   393217
      BackColor       =   0
      ReadOnly        =   -1  'True
      ScrollBars      =   2
      Appearance      =   0
      TextRTF         =   $"frmMain.frx":1D76
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.PictureBox Resize 
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   270
      Left            =   11700
      ScaleHeight     =   18
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   18
      TabIndex        =   168
      Top             =   8640
      Width           =   270
   End
   Begin VB.Label lblswitches 
      Alignment       =   2  'Center
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   195
      Left            =   6480
      TabIndex        =   184
      Top             =   555
      Width           =   495
   End
   Begin VB.Label lblmapswitch 
      Alignment       =   2  'Center
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "0.0"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   6000
      TabIndex        =   183
      Top             =   360
      Width           =   495
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Totem"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   300
      Index           =   6
      Left            =   10770
      TabIndex        =   182
      Top             =   3270
      Visible         =   0   'False
      Width           =   1200
   End
   Begin VB.Shape Shape 
      BorderColor     =   &H00000040&
      BorderStyle     =   2  'Dash
      BorderWidth     =   3
      Height          =   540
      Left            =   11115
      Top             =   3495
      Visible         =   0   'False
      Width           =   540
   End
   Begin VB.Label lblgodmenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H0044342E&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Menu"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H009AADC2&
      Height          =   255
      Left            =   10920
      TabIndex        =   176
      Top             =   360
      Width           =   975
   End
   Begin VB.Image BackGround 
      Appearance      =   0  'Flat
      Height          =   9015
      Left            =   0
      Top             =   0
      Width           =   12015
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   " Store   "
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   300
      Index           =   25
      Left            =   9540
      TabIndex        =   41
      Top             =   3810
      Width           =   1200
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Magic"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   300
      Index           =   21
      Left            =   9540
      TabIndex        =   28
      Top             =   3090
      Width           =   1200
   End
   Begin VB.Label lblLocation 
      Alignment       =   2  'Center
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "[Location]"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   5910
      TabIndex        =   4
      Top             =   60
      Width           =   3615
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Stats"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H009AADC2&
      Height          =   300
      Index           =   48
      Left            =   9540
      TabIndex        =   31
      Top             =   75
      Width           =   1200
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Trade"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H009AADC2&
      Height          =   300
      Index           =   49
      Left            =   9540
      TabIndex        =   32
      Top             =   435
      Width           =   1200
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Guilds"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H009AADC2&
      Height          =   300
      Index           =   53
      Left            =   9540
      TabIndex        =   36
      Top             =   1875
      Width           =   1200
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Repair"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H009AADC2&
      Height          =   300
      Index           =   52
      Left            =   9540
      TabIndex        =   35
      Top             =   1515
      Width           =   1200
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Bank"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H009AADC2&
      Height          =   300
      Index           =   51
      Left            =   9540
      TabIndex        =   34
      Top             =   1155
      Width           =   1200
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Sell"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H009AADC2&
      Height          =   300
      Index           =   50
      Left            =   9540
      TabIndex        =   33
      Top             =   795
      Width           =   1200
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   270
      Index           =   1
      Left            =   11550
      TabIndex        =   1
      Top             =   45
      Width           =   375
   End
   Begin VB.Label lblCurObj 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   300
      Left            =   9720
      TabIndex        =   45
      Top             =   4170
      Width           =   2220
   End
   Begin VB.Label lblObjectInfo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1335
      Left            =   5880
      TabIndex        =   46
      Top             =   4440
      Width           =   5895
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Options"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H009AADC2&
      Height          =   300
      Index           =   0
      Left            =   9540
      TabIndex        =   23
      Top             =   2220
      Width           =   1200
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   270
      Index           =   18
      Left            =   10920
      TabIndex        =   2
      Top             =   30
      Width           =   375
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Skills"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   300
      Index           =   23
      Left            =   9540
      TabIndex        =   29
      Top             =   3450
      Width           =   1200
   End
   Begin VB.Label lblMenu 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Inventory"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   300
      Index           =   24
      Left            =   9540
      TabIndex        =   30
      Top             =   2730
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Inventory"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   7
      Left            =   9540
      TabIndex        =   26
      Top             =   2745
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Skills"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   9
      Left            =   9540
      TabIndex        =   39
      Top             =   3465
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Options"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   6
      Left            =   9540
      TabIndex        =   24
      Top             =   2235
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Sell"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   2
      Left            =   9540
      TabIndex        =   10
      Top             =   810
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Bank"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   3
      Left            =   9540
      TabIndex        =   12
      Top             =   1170
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Repair"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   4
      Left            =   9540
      TabIndex        =   14
      Top             =   1530
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Guilds"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   5
      Left            =   9540
      TabIndex        =   16
      Top             =   1890
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Trade"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   1
      Left            =   9540
      TabIndex        =   7
      Top             =   450
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "Stats"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   0
      Left            =   9540
      TabIndex        =   6
      Top             =   90
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Magic"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   8
      Left            =   9540
      TabIndex        =   37
      Top             =   3105
      Width           =   1200
   End
   Begin VB.Label lblShadow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Players"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Index           =   10
      Left            =   9540
      TabIndex        =   43
      Top             =   3825
      Width           =   1200
   End
   Begin VB.Label lblObjectInfoShadow 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   1335
      Left            =   6120
      TabIndex        =   47
      Top             =   4485
      Width           =   5775
   End
   Begin VB.Label lblLocationShadow 
      Alignment       =   2  'Center
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "[Location]"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   5925
      TabIndex        =   5
      Top             =   75
      Width           =   3615
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public ListIndex As Integer
Public SkillKeyDown As Long

Public OtherFocus As Boolean
Public Currentmap As Long

Public DragLastX As Long
Public DragLastY As Long
Public EditScriptTile As Boolean
Public EditScriptClickTile As Boolean

Public ScriptedTileClipboard As String

Public RClickDown As Boolean
Public RClickX As Long
Public RClickY As Long
Public ClickButton As Integer

Public PicSearchX As Long
Public PicSearchY As Long
Public PicSearchDrag As Boolean
Public SaleObjVal As Long




Public Sub ScriptQueueAdd(Script As String)
Dim i As Long
For i = 9 To 1 Step -1
    ScriptQueue(i) = ScriptQueue(i - 1)
Next
ScriptQueue(0) = Script
UpdateScriptQueue
End Sub



Public Sub UpdateScriptQueue()
Dim i As Long
    frmMain.lstscripts.Clear
    For i = 0 To 9
        frmMain.lstscripts.AddItem (ScriptQueue(i))
    Next
End Sub

Public Sub ScriptQueueClear()
Dim i As Long
For i = 0 To 9
    ScriptQueue(i) = ""
Next
UpdateScriptQueue
End Sub

Private Sub Attacktimer_Timer()
If RClickDown = True Then
    If RClick Then
        Call TryClickAttack(CLng(Int((RClickX) / 32)), CLng(Int((RClickY + 16) / 32)))
        'Call TryAttack
    End If
End If
End Sub







Private Sub BrowserClose_Click()
frmMain.storeframe.Visible = False
End Sub

Private Sub ChatBox_Click()
'frmMain.picViewport.SetFocus
End Sub
Private Sub ChatBox_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 34 Or KeyCode = 33 Then

    Else
        If KeyCode < 37 & KeyCode > 40 Then
            frmMain.picViewport.SetFocus
            KeyCode = 0
        Else
            Call Form_KeyDown(KeyCode, Shift)
        End If
    End If

    'KeyCode = 0
End Sub

Private Sub ChatBox_KeyPress(KeyAscii As Integer)
    If KeyAscii = 34 Or KeyAscii = 33 Then

    Else
        frmMain.picViewport.SetFocus
        'Call Form_KeyPress(KeyAscii)

        KeyAscii = 0
    End If
End Sub

Private Sub ChatBox_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 34 Or KeyCode = 33 Then

    Else
        If KeyCode < 37 & KeyCode > 40 Then
            KeyCode = 0
            frmMain.picViewport.SetFocus
        Else
            Call Form_KeyUp(KeyCode, Shift)
        End If
        frmMain.picViewport.SetFocus
        'KeyCode = 0
    End If
End Sub



Private Sub editmaptime_Timer()
OpenMapEdit
UploadMap
CloseMapEdit
Currentmap = Currentmap + 1
SendSocket Chr$(18) + Chr$(1) + DoubleChar(Int(Val(Currentmap))) + Chr$(CByte(Val(5))) + Chr$(CByte(Val(5)))
End Sub

Private Sub Command_Click()

End Sub




Function MouseX(Optional ByVal hwnd As Long) As Long
    Dim lpPoint As POINTAPI
    GetCursorPos lpPoint
    If hwnd Then ScreenToClient hwnd, lpPoint
    MouseX = lpPoint.X
End Function

Function MouseY(Optional ByVal hwnd As Long) As Long
    Dim lpPoint As POINTAPI
    GetCursorPos lpPoint
    If hwnd Then ScreenToClient hwnd, lpPoint
    MouseY = lpPoint.Y
End Function



Private Sub Label1_Click()
    EditScriptClickTile = True
End Sub

Private Sub Label2_Click()
frmMain.GodMenu.Visible = False
End Sub

Private Sub Label3_Click()
    If Character.Access >= 2 Then    'God+
        Dim CheckSum As Long
        CheckSum = ComputeCheckSum("mbsc.inc")
        If Not CheckSum = ScriptChecksum Then
            PrintChat "You cannot edit scripts because you have the wrong mbsc.inc!  Checksum:  " + CStr(CheckSum), YELLOW
        Else
            SendSocket Chr$(59) & "joinmap" & CMap
            Call ScriptQueueAdd("joinmap" & CMap)
        End If
    Else
        PrintChat "You do not have access to that command!", YELLOW
    End If
End Sub

Private Sub Label4_Click()
    EditScriptTile = True
End Sub

Private Sub Label5_Click()
    If Character.Access >= 2 Then    'God+
        Dim CheckSum As Long
        CheckSum = ComputeCheckSum("mbsc.inc")
        If Not CheckSum = ScriptChecksum Then
            PrintChat "You cannot edit scripts because you have the wrong mbsc.inc!  Checksum:  " + CStr(CheckSum), YELLOW
        Else
            SendSocket Chr$(59) & "partmap" & CMap
            Call ScriptQueueAdd("partmap" & CMap)
        End If
    Else
        PrintChat "You do not have access to that command!", YELLOW
    End If
End Sub

Private Sub Label6_Click()
    If MapEdit = False Then
        OpenMapEdit
    Else
        PrintChat "The map editor is already open!", 14
    End If
End Sub



Private Sub Label7_Click()
    If Character.Access >= 2 Then    'God+
        Dim CheckSum As Long
        CheckSum = ComputeCheckSum("mbsc.inc")
        If Not CheckSum = ScriptChecksum Then
            PrintChat "You cannot edit scripts because you have the wrong mbsc.inc!  Checksum:  " + CStr(CheckSum), YELLOW
        Else
            SendSocket Chr$(59) & "mapsay" & CMap
            Call ScriptQueueAdd("mapsay" & CMap)
        End If
    Else
        PrintChat "You do not have access to that command!", YELLOW
    End If
End Sub


Private Sub lblcopylayer_Click()
Dim X As Byte, Y As Byte
Dim OutString As String
Dim FinalOut As String
Select Case EditMode
    Case 0
        For X = 0 To 11
            For Y = 0 To 11
                If EditMap.Tile(X, Y).Ground > 0 Then
                    OutString = OutString & Chr$(X + 100) & Chr$(Y + 100) & "1" & Format(CLng(EditMap.Tile(X, Y).Ground), String(4, "0"))
                End If
            Next
        Next
    Case 1
        For X = 0 To 11
            For Y = 0 To 11
                If EditMap.Tile(X, Y).Ground2 > 0 Then
                    OutString = OutString & Chr$(X + 100) & Chr$(Y + 100) & "2" & Format(CLng(EditMap.Tile(X, Y).Ground2), String(4, "0"))
                End If
            Next
        Next
    Case 2
        For X = 0 To 11
            For Y = 0 To 11
                If EditMap.Tile(X, Y).BGTile1 > 0 Then
                    OutString = OutString & Chr$(X + 100) & Chr$(Y + 100) & "3" & Format(CLng(EditMap.Tile(X, Y).BGTile1), String(4, "0"))
                End If
            Next
        Next
        
    Case 3
        For X = 0 To 11
            For Y = 0 To 11
                If EditMap.Tile(X, Y).BGTile2 > 0 Then
                    OutString = OutString & Chr$(X + 100) & Chr$(Y + 100) & "4" & Format(CLng(EditMap.Tile(X, Y).BGTile2), String(4, "0"))
                End If
            Next
        Next
    Case 4
        For X = 0 To 11
            For Y = 0 To 11
                If EditMap.Tile(X, Y).FGTile > 0 Then
                    OutString = OutString & Chr$(X + 100) & Chr$(Y + 100) & "5" & Format(CLng(EditMap.Tile(X, Y).FGTile), String(4, "0"))
                End If
            Next
        Next
    Case 5
        For X = 0 To 11
            For Y = 0 To 11
                If EditMap.Tile(X, Y).FGTile2 > 0 Then
                    OutString = OutString & Chr$(X + 100) & Chr$(Y + 100) & "6" & Format(CLng(EditMap.Tile(X, Y).FGTile2), String(4, "0"))
                End If
            Next
        Next
End Select
Do While Len(OutString) > 231
    FinalOut = FinalOut & vbNewLine & "Mapdata = MapData +" & Chr(34) & Mid(OutString, 1, 231) & Chr(34)
    OutString = Mid(OutString, 232)
Loop
Clipboard.Clear
If Len(FinalOut) > 0 Then
    Call Clipboard.SetText(FinalOut, vbCFText)
Else
    Call Clipboard.SetText(OutString, vbCFText)
End If
MsgBox "Copied!"
End Sub

Private Sub lblgodmenu_Click()
frmMain.GodMenu.Visible = Not (frmMain.GodMenu.Visible)
End Sub

Private Sub lstscripts_Click()
    If frmMain.lstscripts.ListIndex = -1 Then Exit Sub
    If ScriptQueue(frmMain.lstscripts.ListIndex) > "" Then
        If Character.Access >= 2 Then    'God+
            Dim CheckSum As Long
            CheckSum = ComputeCheckSum("mbsc.inc")
            If Not CheckSum = ScriptChecksum Then
                PrintChat "You cannot edit scripts because you have the wrong mbsc.inc!  Checksum:  " + CStr(CheckSum), YELLOW
            Else
                SendSocket Chr$(59) & ScriptQueue(frmMain.lstscripts.ListIndex)
            End If
        Else
            PrintChat "You do not have access to that command!", YELLOW
        End If
    End If
    frmMain.lstscripts.ListIndex = -1
End Sub

Private Sub PicBankInv_Click()
    With Character.ItemBank(CurBankObj + ((CurBankPage - 1) * 30))
        If .Object > 0 Then
            If Not Object(.Object).Type = 6 And Not Object(.Object).Type = 11 Then
                SendSocket Chr$(55) & Chr$(3) & Chr$(CurBankObj) & Chr$(CurBankPage)
            Else
                frmMain.KeyPreview = False
                lblDrop.Caption = "Withdraw how many?"
                TempVar1 = 0
                TempVar2 = .value
                TempVar3 = CurBankObj
                txtDrop.Text = TempVar2
                TempVar1 = TempVar2
                picDrop.Visible = True
                picBuy.Visible = False
            End If
        End If
    End With
End Sub



Private Sub picTiles_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 1 Then
    If CurTile = 0 Then CurTile = 1
    Dim TheX As Long, TheY As Long, ChangeX As Long, ChangeY As Long
    TheX = Int(X / 32) * 32
    TheY = Int(Y / 32) * 32
    ChangeY = (Int((Y - Selectsize.Top) / 32) + 1) * 32
    ChangeX = (Int((X - Selectsize.Left) / 32) + 1) * 32
    If Y > Selectsize.Top And ChangeY + Selectsize.Top <= 7 * 32 Then Selectsize.Height = ChangeY
    If X > Selectsize.Left And ChangeX + Selectsize.Left <= 7 * 32 Then Selectsize.Width = ChangeX
End If
End Sub






Private Sub SearchText_GotFocus()
OtherFocus = True
End Sub

Private Sub SearchText_LostFocus()
OtherFocus = False
End Sub

Private Sub pictotem_Click()
CurInvObj = 26
Call RealDrawCurInvObject
End Sub

Private Sub pictotem_DblClick()
    If Character.EquippedObject(6).Object > 0 Then
        If HasFullStats = False Then
            PrintChat "You must recover first!", YELLOW
            Exit Sub
        End If
        SendSocket Chr$(11) + Chr$(7)    'Stop Using Object
    End If
End Sub

Private Sub TimeChatBox_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 34 Or KeyCode = 33 Then

    Else
        If KeyCode < 37 & KeyCode > 40 Then
            frmMain.picViewport.SetFocus
            KeyCode = 0
        Else
            Call Form_KeyDown(KeyCode, Shift)
        End If
    End If

    'KeyCode = 0
End Sub

Private Sub TimeChatBox_KeyPress(KeyAscii As Integer)
    If KeyAscii = 34 Or KeyAscii = 33 Then

    Else
        frmMain.picViewport.SetFocus
        'Call Form_KeyPress(KeyAscii)

        KeyAscii = 0
    End If
End Sub

Private Sub TimeChatBox_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 34 Or KeyCode = 33 Then

    Else
        If KeyCode < 37 & KeyCode > 40 Then
            KeyCode = 0
            frmMain.picViewport.SetFocus
        Else
            Call Form_KeyUp(KeyCode, Shift)
        End If
        frmMain.picViewport.SetFocus
        'KeyCode = 0
    End If
End Sub

Private Sub Close_Click()
    frmMain.Quest.Visible = False
    SendSocket Chr$(106) + Chr$(4)
End Sub


Private Sub lblGoldCoins_Click()
    frmMain.KeyPreview = False
    lblDrop.Caption = "Withdraw how much?"
    TempVar1 = 0
    TempVar2 = Val(lblGoldCoins.Caption)
    TempVar3 = CurInvObj
    txtDrop.Text = TempVar2
    TempVar1 = TempVar2
    picDrop.Visible = True
    picBuy.Visible = False
End Sub

Private Sub lblLocation_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 And Me.WindowState = 0 Then
        Dim ReturnVal As Long
        ReleaseCapture
        ReturnVal = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End If
End Sub

Private Sub MapScroll_Change()
    TopY = MapScroll.value * 32
    RedrawTiles
End Sub

Private Sub MapScroll_Scroll()
    MapScroll_Change
End Sub

Public Sub MouseWheelRolled(ByVal Pos As Long, Pos2 As Long)

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim A As Long, Length As Long
    Select Case KeyCode
    Case vbKeyShift    'Shift
        keyShift = True
    Case vbKeyLeft
        keyLeft = True: MoveBuffer = ""
    Case vbKeyRight
        keyRight = True: MoveBuffer = ""
    Case vbKeyUp
        keyUp = True: MoveBuffer = ""
    Case vbKeyDown
        keyDown = True: MoveBuffer = ""
    Case vbKeyControl
        keyCtrl = True
    Case vbKeyEscape
        keyEscape = True
    Case vbKeyAlt
        keyAlt = True
    Case 112, 113, 114, 115, 116, 117, 118, 119, 120, 121    'F1-F10
        If keyAlt = True Then
            With Macro(KeyCode - 112)
                If .Text <> "" Then
                    ChatString = .Text
                    If .LineFeed = True Then
                        Form_KeyPress 13
                    End If
                End If
            End With
        ElseIf keyEscape = True Then
            If ListIndex > 0 Then
                Select Case frmMain.lblSkillType
                Case "Skills"
                    Character.Hotkey(KeyCode - 111).Type = 1
                Case "Magic"
                    Character.Hotkey(KeyCode - 111).Type = 3
                    Character.Hotkey(KeyCode - 111).ScrollPosition = sclMagic.value
                End Select
                For A = 1 To 12
                    If Character.Hotkey(A).Type = Character.Hotkey(KeyCode - 111).Type Then
                        If Character.Hotkey(A).Hotkey = Character.Hotkey(KeyCode - 111).Hotkey Then
                            Character.Hotkey(A).Hotkey = 0
                        End If
                    End If
                Next A
                Character.Hotkey(KeyCode - 111).Hotkey = ListIndex + sclMagic.value
                SaveOptions
                DrawSkillsList
                DrawMagicList
            End If
        Else
            Select Case Character.Hotkey(KeyCode - 111).Type
            Case 1    'Skill
                SkillKeyDown = KeyCode
                SkillTimer.Enabled = True
            End Select
        End If
    Case 33    'PgUp
        If options.TimeStamp Then
            frmMain.TimeChatBox.SetFocus
            Call SendKeys("{PGUP}")
            frmMain.SetFocus
        Else
            frmMain.ChatBox.SetFocus
            Call SendKeys("{PGUP}")
            frmMain.SetFocus
        End If
    Case 34    'PgDn
        If options.TimeStamp Then
            frmMain.TimeChatBox.SetFocus
            Call SendKeys("{PGDN}")
            frmMain.SetFocus
        Else
            frmMain.ChatBox.SetFocus
            Call SendKeys("{PGDN}")
            frmMain.SetFocus
        End If
    End Select
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    
    Dim A As Long, B As Long, C As Long, i As Long
    Dim Parse() As String
    Dim St1 As String
    Dim INVA As Boolean
    If OtherFocus = True Then
        Exit Sub
    End If
    If Character.IsDead = True Then
        PrintChat "You are dead!", 15
        Exit Sub
    End If
    If KeyAscii = 22 Then
        If Len(ChatString) + Len(Clipboard.GetText) < 255 Then
            keyCtrl = False
            ChatString = ChatString + Replace(Clipboard.GetText, vbNewLine, " ")
        Else
            Beep
        End If
    End If
    If KeyAscii >= 32 And KeyAscii <= 127 Then
        If ChatString = vbNullString Then
            If KeyAscii = 59 Then ' ;
                If options.BChat = True Then ChatString = "/BROADCAST "
            ElseIf KeyAscii = 39 Then    ' '
                ChatString = "/GLOBAL "
            ElseIf KeyAscii = 91 Then
                ChatString = "/TELL "
            Else
                ChatString = Chr$(KeyAscii)
            End If
        Else
            If Len(ChatString) < 255 Then
                ChatString = ChatString + Chr$(KeyAscii)
            Else
                Beep
            End If
        End If
    ElseIf KeyAscii = 8 Then
        If Len(ChatString) > 0 Then
            ChatString = Left$(ChatString, Len(ChatString) - 1)
        Else
            Beep
        End If
    ElseIf KeyAscii = 27 Then
        ChatString = vbNullString
    ElseIf KeyAscii = 10 Or KeyAscii = 13 Then
        If ChatString <> "" Then
            If Left$(ChatString, 1) = "/" Then
                If Len(ChatString) > 1 Then
                    GetSections Mid$(ChatString, 2), 1
                    Select Case UCase$(Section(1))
                    Case "OPTIONS"
                        frmOptions.Show

                    Case "MACROS"
                        frmMacros.Show

                    Case "PING"
                        PrintChat "Ping: " & CStr(Ping) & " ms (milliseconds)", YELLOW

                    Case "BANK"
                        If Map.NPC > 0 Then
                            If ExamineBit(NPC(Map.NPC).flags, 0) = True Then
                                SendSocket Chr$(56)
                                RefreshBankPage
                            Else
                                PrintChat "This is not a bank!", YELLOW
                            End If
                        Else
                            PrintChat "This is not a bank!", YELLOW
                        End If

                    Case "BUY", "TRADE"
                        If Map.NPC > 0 Then
                            ShowBuyMenu Map.NPC
                        Else
                            PrintChat "There is not a store here!", YELLOW
                        End If
                    Case "DEBUG"
                        GetSections Mid$(ChatString, 2), 2
                        Select Case UCase(Section(2))
                            Case "SWEARBOT"
                                CatchSwears = Not CatchSwears
                            Case "QUOTES"
                                options.FindQuotes = True
                                
                        End Select

                    Case "SELL"
                        If Map.NPC > 0 Then
                            If ExamineBit(NPC(Map.NPC).flags, 2) = True Then
                                DisplaySell
                            Else
                                PrintChat "You cannot sell items here!", YELLOW
                            End If
                        Else
                            PrintChat "You cannot sell items here!", YELLOW
                        End If

                    Case "REPAIR", "REP", "REPAIROBJECT"
                        If Map.NPC > 0 Then
                            If ExamineBit(NPC(Map.NPC).flags, 1) = True Then
                                DisplayRepair
                            Else
                                PrintChat "There is no blacksmith here!", YELLOW
                            End If
                        Else
                            PrintChat "There is no blacksmith here!", YELLOW
                        End If

                    Case "GLOBAL", "GLOBA", "GLOB", "GLO", "GL", "G"
                        If options.Broadcasts = True Then
                            If Suffix <> "" Then
                                'If SwearFilter(Suffix) = True Then
                                '  PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                                'PrintChat Character.name + ": " + SwearFilter(Suffix), 13
                                '  ChatString = vbNullString
                                '  Exit Sub
                                ' End If
    
                                ' PrintChat Character.name + ": " + Suffix, 13
                                SendSocket Chr$(15) + "G:" + Suffix
                                PrintChat Character.name + ": " + SwearFilter(Suffix), CByte(options.GlobalColor)
                            Else
                                PrintChat "What do you want to say in Global?", YELLOW
                            End If
                        Else
                            PrintChat "Global is turned off.", YELLOW
                        End If

                    Case "BROADCAST", "BROADCAS", "BROADCA", "BROADC", "BROAD", "BROA", "BRO", "BR", "B"
                        If options.BChat = True Then
                            If Suffix <> "" Then
                                'If SwearFilter(Suffix) = True Then
                                '  PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                                'PrintChat Character.name + ": " + SwearFilter(Suffix), 13
                                '  ChatString = vbNullString
                                '  Exit Sub
                                ' End If
    
                                ' PrintChat Character.name + ": " + Suffix, 13
                                SendSocket Chr$(15) + "B:" + Suffix
                                PrintChat Character.name + ": " + SwearFilter(Suffix), 13
                            Else
                                PrintChat "What do you want to broadcast?", YELLOW
                            End If
                        End If

                    Case "DESCRIBE", "DESCRIB", "DESCRI", "DESCR", "DESC", "DES", "DE", "D"
                        If Len(Suffix) > 0 Then
                            ' If SwearFilter(Suffix) = True Then
                            '     PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                            '     ChatString = vbNullString
                            '     Exit Sub
                            ' End If
                            SendSocket Chr$(28) + SwearFilter(Suffix)
                            PrintChat "Your description has been changed.", YELLOW
                        Else
                            PrintChat "You must enter a description.", YELLOW
                        End If

                    Case "HELP"
                        picHelp.Visible = True

                    Case "MOTD"
                        PrintChat MOTDText, 15

                    Case "CHANGEPASSWORD"
                        frmNewPass.Show

                    Case "EMAIL"
                        frmEmail.Show

                    Case "EMOTE", "EMOT", "EMO", "EM", "E"
                        If Suffix <> "" Then
                            ' If SwearFilter(Suffix) = True Then
                            '     PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                            '     ChatString = vbNullString
                            '     Exit Sub
                            ' End If
                            SendSocket Chr$(16) + Suffix
                            PrintChat Character.name + " " + SwearFilter(Suffix), 11
                        Else
                            PrintChat "What do you want to do?", YELLOW
                        End If
                    Case "SAY", "SA", "S"
                        If Suffix <> "" Then
                            ' If SwearFilter(Suffix) = True Then
                            '     PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                            '     ChatString = vbNullString
                            '     Exit Sub
                            ' End If
                            SendSocket Chr$(6) + SwearFilter(Suffix)
                            PrintChat "You say, " + Chr$(34) + SwearFilter(Suffix) + Chr$(34), 7
                        Else
                            PrintChat "What do you want to say?", 14
                        End If

                    Case "WHERE", "WHER", "WHE"
                        PrintChat "You are at location [" + CStr(CMap) + ", " + CStr(CX) + ", " + CStr(CY) + "]", 14

                    Case "STATS", "TRAIN"
                        If Character.Gender = 0 Then
                            PrintChat "Name:  " + Character.name + "     Gender:  Male     Level:  " + CStr(Character.Level) + "     Class:  " + Class(Character.Class).name, 15
                        Else
                            PrintChat "Name:  " + Character.name + "     Gender:  Female     Level:  " + CStr(Character.Level) + "     Class:  " + Class(Character.Class).name, 15
                        End If
                        PrintChat "Attack:  " + CStr(Character.PhysicalAttack) + "     Defense:  " + CStr(Character.PhysicalDefense) + "     Magic Defense:  " + CStr(Character.MagicDefense), 15

                    Case "FILTER"
                        If Suffix <> "" Then
                            If InStr(Suffix, "=") > 0 Then
                                B = ChatFilter.count
                                If Mid(Suffix, InStr(Suffix, "=") + 1, Len(Suffix) - InStr(Suffix, "=")) = "" Then
                                    St1 = Mid(Suffix, 1, InStr(Suffix, "=") - 1)
                                    If St1 > "" Then
                                        For A = 0 To ChatFilter.count - 1
                                            If ChatFilter.FilterWords(A).Word = St1 Then
                                                ChatFilter.FilterWords(A).Word = ""
                                                ChatFilter.FilterWords(A).Replacement = ""
                                                For B = A To ChatFilter.count - 2
                                                    ChatFilter.FilterWords(B).Word = ChatFilter.FilterWords(B + 1).Word
                                                    ChatFilter.FilterWords(B).Replacement = ChatFilter.FilterWords(B + 1).Replacement
                                                Next
                                                For B = 0 To ChatFilter.count - 1
                                                    Call WriteString("Filter", "W" + CStr(B), ChatFilter.FilterWords(B).Word)
                                                    Call WriteString("Filter", "R" + CStr(B), ChatFilter.FilterWords(B).Replacement)
                                                Next
                                                ChatFilter.count = ChatFilter.count - 1
                                                PrintChat "Filter rule removed!", 14
                                                Exit For
                                            End If
                                        Next
                                    Else
                                        PrintChat "The proper format is BadWord=ReplacementWord", 14
                                    End If
                                Else
                                    ChatFilter.FilterWords(B).Word = Mid(Suffix, 1, InStr(Suffix, "=") - 1)
                                    ChatFilter.FilterWords(B).Replacement = Mid(Suffix, InStr(Suffix, "=") + 1, Len(Suffix) - InStr(Suffix, "="))
                                    Call WriteString("Filter", "W" + CStr(B), ChatFilter.FilterWords(B).Word)
                                    Call WriteString("Filter", "R" + CStr(B), ChatFilter.FilterWords(B).Replacement)
                                    ChatFilter.count = B + 1
                                    PrintChat "Added filter rule!", 14
                                End If
                            Else
                                PrintChat "The proper format is BadWord=ReplacementWord", 14
                            End If
                        Else
                        If ChatFilter.count > 0 Then
                            St1 = vbNullString
                            For A = 0 To ChatFilter.count - 1
                                With ChatFilter.FilterWords(A)
                                    St1 = St1 + ", " + .Word + "=" + .Replacement + ", "
                                End With
                            Next A
                            St1 = Mid$(St1, 2)
                            PrintChat "Filter List:" + St1, YELLOW
                        Else
                            PrintChat "Your filter list is empty!", YELLOW
                        End If
                        End If


                    Case "IGNORE"
                        If Suffix <> "" Then
                            A = FindPlayer(Suffix)
                            If A > 0 Then
                                With Player(A)
                                    If .Ignore = True Then
                                        .Ignore = False
                                        PrintChat "You are no longer ignoring " + .name + ".", YELLOW
                                        Call WriteString("Ignore", .name, 0)
                                    Else
                                        .Ignore = True
                                        PrintChat "You are now ignoring " + .name + ".", YELLOW
                                        Call WriteString("Ignore", .name, 1)
                                    End If
                                End With
                            Else
                                PrintChat "No such player!", 14
                            End If
                        Else
                            St1 = vbNullString
                            B = 0
                            For A = 1 To MaxUsers
                                With Player(A)
                                    If .Sprite > 0 And .Ignore = True Then
                                        B = B + 1
                                        St1 = St1 + ", " + .name
                                    End If
                                End With
                            Next A
                            If B > 0 Then
                                St1 = Mid$(St1, 2)
                                PrintChat "You are currently ignoring " + CStr(B) + " people:" + St1, YELLOW
                            Else
                                PrintChat "You are not ignoring anybody!", YELLOW
                            End If
                        End If
                    Case "R"
                        If ReturnChat > 0 Or ReturnWebChat > 0 Then
                            If ReturnChat > 0 Then
                                If Suffix <> "" Then
                                    ' If SwearFilter(Suffix) = True Then
                                    '     PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                                    '     ChatString = vbNullString
                                    '     Exit Sub
                                    ' End If
                                    SendSocket Chr$(14) + Chr$(ReturnChat) + Suffix
                                    PrintChat "You tell " + Player(ReturnChat).name + ", " + Chr$(34) + SwearFilter(Suffix) + Chr$(34), 10
                                Else
                                    PrintChat "What do you want to tell " + Player(ReturnChat).name + "?", YELLOW
                                End If
                            Else
                                If A > 0 Then
                                    SendSocket Chr$(111) + Chr$(ReturnWebChat) + Suffix
                                    PrintChat "You tell " + WebPlayers(ReturnWebChat).name + ", " + Chr$(34) + SwearFilter(Suffix) + Chr$(34), 10
                                Else
                                    PrintChat "No such player!", YELLOW
                                End If
                            End If
                        Else
                            PrintChat "Someone must chat to you first!", YELLOW
                        End If
                    
                    
                    Case "TELL", "TEL", "TE", "T"
                        If Suffix <> "" Then
                            GetSections Suffix, 1
                            If Len(Section(1)) > 0 Then
                                A = FindPlayer(Section(1))
                                If A > 0 Then
                                    If Suffix <> "" Then
                                        ' If SwearFilter(Suffix) = True Then
                                        '     PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                                        '     ChatString = vbNullString
                                        '     Exit Sub
                                        ' End If
                                        SendSocket Chr$(14) + Chr$(A) + Suffix
                                        PrintChat "You tell " + Player(A).name + ", " + Chr$(34) + SwearFilter(Suffix) + Chr$(34), 10
                                    Else
                                        PrintChat "What do you want to tell " + Player(A).name + "?", YELLOW
                                    End If
                                Else
                                    A = FindWebPlayer(Section(1))
                                    If A > 0 Then
                                        SendSocket Chr$(111) + Chr$(A) + Suffix
                                        PrintChat "You tell " + WebPlayers(A).name + ", " + Chr$(34) + SwearFilter(Suffix) + Chr$(34), 10
                                    Else
                                        PrintChat "No such player!", YELLOW
                                    End If
                                End If
                            Else
                                PrintChat "No such player!", YELLOW
                            End If
                        Else
                            PrintChat "What, and to whom, do you want to tell?", YELLOW
                        End If
                    Case "WHO", "WH", "W"
                        St1 = vbNullString
                        B = 0
                        For A = 1 To MaxUsers
                            With Player(A)
                                If .Sprite > 0 And A <> Character.index And Not .status = 25 Then
                                    B = B + 1
                                    St1 = St1 + ", " + .name
                                End If
                            End With
                        Next A
                        For A = 1 To 50
                            If WebPlayers(A).Online = True Then
                                B = B + 1
                                St1 = St1 + ", " + WebPlayers(A).name + " - Web"
                            End If
                        Next
                        If B > 0 Then
                            St1 = Mid$(St1, 2)
                            PrintChat "There are " + CStr(B) + " other players online: " + St1, YELLOW
                        Else
                            PrintChat "There are no other players online.", YELLOW
                        End If
                    Case "YELL", "YEL", "YE", "Y"
                        If Suffix <> "" Then
                            ' If SwearFilter(Suffix) = True Then
                            '     PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                            '     ChatString = vbNullString
                            '     Exit Sub
                            ' End If
                            SendSocket Chr$(17) + Suffix
                            PrintChat "You yell, " + Chr$(34) + SwearFilter(Suffix) + Chr$(34), 7
                        Else
                            PrintChat "What do you want to yell?", YELLOW
                        End If

                    Case "FRAMERATE", "FRAMERAT", "FRAMERA", "FRAMER", "FRAME", "FRAM", "FRA", "FR", "F"
                        PrintChat "Current Frame Rate: " + CStr(FrameRate), 14

                    Case "RECOVERACCOUNT"
                        If Suffix > "" Then
                            If InStr(Suffix, "@") Then
                                If InStr(Suffix, Chr(34)) Then
                                    Parse() = Split(Suffix, Chr(34))
                                    SendSocket Chr$(109) + Chr$(2) + Parse(1) + "#" + Parse(2)
                                Else
                                    Parse() = Split(Suffix, " ")
                                    SendSocket Chr$(109) + Chr$(2) + Parse(0) + "#" + Parse(1)
                                End If
                            Else
                                SendSocket Chr$(109) + Chr$(1) + Suffix
                            End If
                        End If
                    Case "RECOVER"
                        If Suffix > "" Then
                            If InStr(Suffix, "#") Then Exit Sub
                            If InStr(Suffix, " ") Then
                                Parse() = Split(Suffix, " ")
                                INVA = False
                                For i = 1 To 47
                                    If InStr(Parse(1), Chr(i)) Then
                                        INVA = True
                                    End If
                                Next
                                For i = 58 To 64
                                    If InStr(Parse(1), Chr(i)) Then
                                        INVA = True
                                    End If
                                Next
                                For i = 91 To 96
                                    If InStr(Parse(1), Chr(i)) Then
                                        INVA = True
                                    End If
                                Next
                                For i = 123 To 255
                                    If InStr(Parse(1), Chr(i)) Then
                                        INVA = True
                                    End If
                                Next
                                If INVA = False Then
                                    SendSocket Chr$(109) + Chr$(3) + Parse(0) + "##" + Parse(1)
                                Else
                                    PrintChat "Invalid password!", 1
                                    Exit Sub
                                End If
                            End If
                        End If

                    Case "GUILDS"
                        frmGuild.Show

                    Case "GUILD"
                        GetSections Suffix, 1
                        Select Case UCase$(Section(1))
                        Case "BUY"
                            If Character.Guild > 0 And Character.GuildRank >= 2 Then
                                SendSocket Chr$(43)
                            Else
                                PrintChat "You must be the Lord of a guild to use that command.", 14
                            End If

                        Case "WHO"
                            If Character.Guild > 0 Then
                                St1 = vbNullString
                                B = 0
                                For A = 1 To MaxUsers
                                    With Player(A)
                                        If .Sprite > 0 And A <> Character.index And .Guild = Character.Guild Then
                                            B = B + 1
                                            St1 = St1 + ", " + .name
                                        End If
                                    End With
                                Next A
                                If B > 0 Then
                                    St1 = Mid$(St1, 2)
                                    PrintChat "There are " + CStr(B) + " other guild members online: " + St1, 14
                                Else
                                    PrintChat "There are no other guild members online.", 14
                                End If
                            Else
                                PrintChat "You are not in a guild!", 14
                            End If

                        Case "CHAT"
                            If Character.Guild > 0 Then
                                If Suffix <> "" Then
                                    ' If SwearFilter(Suffix) = True Then
                                    '     PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                                    '     ChatString = vbNullString
                                    '     Exit Sub
                                    ' End If
                                    SendSocket Chr$(41) + SwearFilter(Suffix)    'Guild Chat
                                    PrintChat Character.name + " -> Guild: " + SwearFilter(Suffix), 15
                                Else
                                    PrintChat "You must specify a message!", YELLOW
                                End If
                            Else
                                PrintChat "You are not in a guild!", YELLOW
                            End If

                        Case "INVITE"
                            If HasFullStats = True Then
                                If Character.Guild > 0 And Character.GuildRank >= 2 Then
                                    SetEnergy GetEnergy - 20
                                    GetSections Suffix, 1
                                    If Section(1) <> "" Then
                                        A = FindPlayer(Section(1))
                                        If A > 0 Then
                                            SendSocket Chr$(34) + Chr$(A)
                                            PrintChat Player(A).name + " has been invited to join your guild.", 15
                                        Else
                                            PrintChat "No such player!", 14
                                        End If
                                    Else
                                        PrintChat "Must specify a name.", 14
                                    End If
                                Else
                                    PrintChat "You must be the Lord of a guild to use that command.", 14
                                End If
                            Else
                                PrintChat "You must recover first!", 15
                            End If

                        Case "JOIN"
                            If Character.Guild = 0 Then
                                SendSocket Chr$(31)    'Join Guild
                            Else
                                PrintChat "You are already in a guild.  If you would like to join a new guild, you must first leave this guild by typing '/guild leave'.", 14
                            End If

                        Case "NEW"
                            If Character.Guild = 0 Then
                                If Character.Level >= World.GuildNewLevel Then
                                    frmNewGuild.Show
                                Else
                                    PrintChat "You must be Level " + CStr(World.GuildNewLevel) + " to Start a guild!", 14
                                End If
                            Else
                                PrintChat "You are already in a guild.  If you would like to join a new guild, you must first leave this guild by typing '/guild leave'.", 14
                            End If

                        Case "LEAVE"
                            If Character.Guild > 0 Then
                                If HasFullStats = True Then
                                    SendSocket Chr$(32)    'Leave Guild
                                Else
                                    PrintChat "You must recover first!", 15
                                End If
                            Else
                                PrintChat "You are not in a guild!", 14
                            End If

                        Case "PAY"
                            If HasFullStats = True Then
                                If Character.Guild > 0 Then
                                    SetEnergy GetEnergy - 10
                                    GetSections Suffix, 1
                                    If Section(1) <> "" Then
                                        If CDbl(Int(Val(Section(1)))) <= 2147483647# Then
                                            A = Int(Val(Section(1)))
                                            If A >= 0 Then
                                                SendSocket Chr$(40) + QuadChar(A)    'Pay balance
                                            Else
                                                PrintChat "Invalid value.", 14
                                            End If
                                        Else
                                            PrintChat "Invalid value.", 14
                                        End If
                                    Else
                                        PrintChat "You must specify an amount!", 14
                                    End If
                                Else
                                    PrintChat "You are not in a guild!", 14
                                End If
                            Else
                                PrintChat "You must recover first!", 15
                            End If

                        Case "EDIT"
                            frmGuild.Show
                            If Character.Guild > 0 Then
                                SendSocket Chr$(39) + Chr$(Character.Guild)
                            Else
                                PrintChat "You are not in a guild!", 14
                            End If

                        Case "HALLINFO"
                            SendSocket Chr$(47)

                        Case "BALANCE"
                            If Character.Guild > 0 Then
                                SendSocket Chr$(46)
                            Else
                                PrintChat "You are not in a guild!", 14
                            End If

                        Case "SPRITE"
                            If HasFullStats = True Then
                                If Character.Guild > 0 Then
                                    SetEnergy GetEnergy - 10
                                    PrintChat "Your guild sprite has been restored", 15
                                    SendSocket Chr$(95)
                                Else
                                    PrintChat "You are not in a guild!", 14
                                End If
                            Else
                                PrintChat "You must have full stats to use this command!", 14
                            End If

                        Case "MOTD"
                            If Character.Guild > 0 Then
                                If HasFullStats = True Then
                                    SetEnergy GetEnergy - 10
                                    If Suffix <> "" Then
                                        If Character.GuildRank >= 2 Then
                                            SendSocket Chr$(93) + SwearFilter(Suffix)
                                        Else
                                            PrintChat "You must be a Lord or Founder to change the guild message of the day.", 14
                                        End If
                                    Else
                                        SendSocket Chr$(94)
                                    End If
                                Else
                                    PrintChat "You must have full stats to use this command!", 14
                                End If
                            Else
                                PrintChat "You are not in a guild!", 14
                            End If

                        Case "HELP"
                            PrintChat "Available Guild Commands:  CHAT, EDIT, NEW, HALLINFO, MOTD, SPRITE, PAY, BALANCE, JOIN, LEAVE, INVITE, BUY, WHO, HUD", 14

                        Case "HUD", "HU"
                            If Character.Guild > 0 Then
                                frmGuildHUD.Show
                            Else
                                PrintChat "You are not in a guild!", 14
                            End If

                        Case Else
                            PrintChat "Invalid guild command.", 14
                        End Select

                    Case "TEST"
                        RestoreDirectDraw = True

                    Case "GOD"
                        If Character.Access > 0 Then
                            GetSections Suffix, 1
                            Select Case UCase$(Section(1))
                            Case "MENU"
                                frmMain.GodMenu.Visible = True

                                
                            Case "CHAT"
                                If Suffix <> "" Then
                                    SendSocket Chr$(18) + Chr$(14) + Suffix
                                    PrintChat "<" + Character.name + ">: " + Suffix, 11
                                End If
                            Case "BOOT"
                                GetSections Suffix, 1
                                If Section(1) <> "" Then
                                    A = FindPlayer(Section(1))
                                    If A >= 1 Then
                                        SendSocket Chr$(18) + Chr$(9) + Chr$(A) + Suffix
                                    Else
                                        PrintChat "Boot: No such player", 14
                                    End If
                                Else
                                    PrintChat "Boot: Not enough parameters", 14
                                End If
                            Case "BAN"
                                GetSections Suffix, 2
                                If Section(2) <> "" Then
                                    A = FindPlayer(Section(1))
                                    If A >= 1 Then
                                        B = Int(Val(Section(2)))
                                        If B >= 1 And B <= 255 Then
                                            SendSocket Chr$(18) + Chr$(10) + Chr$(A) + Chr$(B) + Suffix
                                        Else
                                            PrintChat "Ban: Unnacceptable number of days", 14
                                        End If
                                    Else
                                        PrintChat "Ban: No such player", 14
                                    End If
                                Else
                                    PrintChat "Ban: Not enough parameters", 14
                                End If
                            Case "FLOAT"
                                If Character.Access >= 3 Then
                                    GetSections Suffix, 3
                                    If Suffix <> "" Then
                                        SendSocket Chr$(18) + Chr$(16) + Chr$(Section(1)) + Chr$(Section(2)) + Chr$(Section(3)) + Suffix
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "FLOATME"
                                If Character.Access >= 2 Then
                                    GetSections Suffix, 1
                                    If Suffix <> "" Then
                                        SendSocket Chr$(18) + Chr$(16) + Chr$(Section(1)) + Chr$(CX) + Chr$(CY) + Suffix
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "DISBAND", "DELETE", "REMOVE"
                                If Character.Access >= 2 Then
                                    GetSections Suffix, 1
                                    A = FindGuild(Section(1))
                                    If A >= 1 Then
                                        SendSocket Chr$(18) + Chr$(5) + Chr$(A)
                                        PrintChat "Guild " + Guild(A).name + " disbanded!", 14
                                    Else
                                        PrintChat "No such guild!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "RESETMAP"
                                If Character.Access >= 2 Then
                                    SendSocket Chr$(18) + Chr$(8)
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "MOTD", "MOT", "MO", "M"
                                If Character.Access >= 3 Then
                                    If Suffix <> "" Then
                                        SendSocket Chr$(18) + Chr$(4) + Suffix
                                        PrintChat "MOTD changed.", 14
                                    Else
                                        PrintChat "You must specify a message!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "SETMYNAME"
                                If Character.Access >= 2 Then
                                    If Len(Suffix) > 0 Then
                                        If Len(Suffix) <= 15 Then
                                            SendSocket Chr$(18) + Chr$(7) + Chr$(Character.index) + Suffix
                                        Else
                                            PrintChat "Name may be no longer than 15 characters!", 14
                                        End If
                                    Else
                                        PrintChat "You must specify a new name!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "SETNAME"
                                If Character.Access >= 3 Then
                                    GetSections Suffix, 1
                                    A = FindPlayer(Section(1))
                                    If Len(Suffix) > 0 Then
                                        If Len(Suffix) <= 15 Then
                                            SendSocket Chr$(18) + Chr$(7) + Chr$(A) + Suffix
                                        Else
                                            PrintChat "Name may be no longer than 15 characters!", 14
                                        End If
                                    Else
                                        PrintChat "You must specify a new name!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "SETSTATUS"
                                If Character.Access >= 2 Then
                                    GetSections Suffix, 2
                                    A = FindPlayer(Section(1))
                                    If A >= 1 Then
                                        B = Int(Val(Section(2)))
                                        If B >= 0 And B <= 255 Then
                                            SendSocket Chr$(18) + Chr$(17) + Chr$(A) + Chr$(B)
                                            PrintChat Player(A).name + "'s Status has been changed.", 14
                                        Else
                                            PrintChat "Invalid Status number!", 14
                                        End If
                                    Else
                                        PrintChat "No such player!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "SETMYSTATUS"
                                If Val(Suffix) > 0 Then
                                    A = Int(Val(Suffix))
                                    If A > 25 Then A = 25
                                    SendSocket Chr$(18) + Chr$(17) + Chr$(Character.index) + Chr$(A)
                                    PrintChat "Status changed.", 14
                                Else
                                    PrintChat "You must specify a sprite number!", 14
                                End If
                            Case "SCAN"
                                If Character.Access >= 2 Then
                                    GetSections Suffix, 1
                                    If Section(1) <> "" Then
                                        A = FindPlayer(Section(1))
                                        If A >= 1 Then
                                            SendSocket Chr$(18) + Chr$(18) + Chr$(A)

                                        Else
                                            PrintChat "Scan: No such player", 14
                                        End If
                                    Else
                                        PrintChat "Scan: Not enough parameters", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "SETPLAYERACCESS"
                                If (Character.Access = 3) Then
                                    GetSections Suffix, 2
                                    A = FindPlayer(Section(1))
                                    If A >= 1 Then
                                        B = Int(Val(Section(2)))
                                        If B >= 0 And B <= 3 Then
                                            SendSocket Chr$(114) + Chr$(A) + Chr$(B)
                                            PrintChat Player(A).name + "'s access has been changed.", 14
                                        Else
                                            PrintChat "Invalid access number!", 14
                                        End If
                                    Else
                                        PrintChat "No such player!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "SETSPRITE"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 2
                                    A = FindPlayer(Section(1))
                                    If A >= 1 Then
                                        B = Int(Val(Section(2)))
                                        If B >= 0 And B <= MaxSprite Then
                                            SendSocket Chr$(18) + Chr$(6) + Chr$(A) + DoubleChar$(B)
                                            PrintChat Player(A).name + "'s sprite has been changed.", 14
                                        Else
                                            PrintChat "Invalid sprite number!", 14
                                        End If
                                    Else
                                        PrintChat "No such player!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If

                            Case "PROCESS"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 2
                                    A = FindPlayer(Section(1))
                                    If A >= 1 Then
                                        B = Int(Val(Section(2)))
                                        If B > 0 And B < 4 Then
                                            SendSocket Chr$(18) + Chr$(26) + Chr$(A) + Chr$(B)
                                            PrintChat Player(A).name + "'s processes are being scanned.", 14
                                        Else
                                            PrintChat "Please enter scan type 1-3", 14
                                        End If
                                    Else
                                        PrintChat "No such player!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If

                            Case "SETCLASS"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 2
                                    A = FindPlayer(Section(1))
                                    If A >= 1 Then
                                        B = Int(Val(Section(2)))
                                        If B > 0 And B <= NumClasses Then
                                            SendSocket Chr$(18) + Chr$(25) + Chr$(A) + Chr$(B)
                                            PrintChat Player(A).name + "'s class has been changed.", 14
                                        Else
                                            PrintChat "Invalid class number!", 14
                                        End If
                                    Else
                                        PrintChat "No such player!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If

                            Case "SETMYCLASS"
                                If Val(Suffix) > 0 Then
                                    A = Int(Val(Suffix))
                                    If A > 0 And A <= NumClasses Then
                                        SendSocket Chr$(18) + Chr$(25) + Chr$(Character.index) + Chr$(A)
                                        PrintChat "Class changed.", 14
                                    Else
                                        PrintChat "Invalid class number!", 14
                                    End If
                                Else
                                    PrintChat "You must specify a class number!", 14
                                End If

                            Case "SETGUILDSPRITE"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 2
                                    A = FindGuild(Section(1))
                                    If A >= 1 Then
                                        B = Int(Val(Section(2)))
                                        If B <= MaxSprite Then
                                            SendSocket Chr$(18) + Chr$(15) + Chr$(A) + DoubleChar$(B)
                                            PrintChat Guild(A).name + "'s sprite has been changed.", 14
                                        Else
                                            PrintChat "Invalid sprite number!", 14
                                        End If
                                    Else
                                        PrintChat "No such guild!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If

                            Case "SETMYSPRITE"
                                If Val(Suffix) > 0 Then
                                    A = Int(Val(Suffix))
                                    If A > MaxSprite Then A = MaxSprite
                                    SendSocket Chr$(18) + Chr$(6) + Chr$(Character.index) + DoubleChar$(A)
                                    PrintChat "Sprite changed.", 14
                                Else
                                    PrintChat "You must specify a sprite number!", 14
                                End If

                            Case "GLOBAL", "GLOBA", "GLOB", "GLO", "GL", "G"
                                If Suffix <> "" Then
                                    SendSocket Chr$(18) + vbNullChar + Suffix
                                Else
                                    PrintChat "You must specify a message!", 14
                                End If

                            Case "SAVEWARP"
                                GetSections Suffix, 1
                                If Section(1) <> "" Then
                                    WriteString "Warps", LCase$(Section(1)) + "-map", CStr(CMap)
                                    WriteString "Warps", LCase$(Section(1)) + "-x", CStr(CX)
                                    WriteString "Warps", LCase$(Section(1)) + "-y", CStr(CY)
                                    PrintChat "Warp location saved.", 14
                                Else
                                    PrintChat "You must specify a name for this warp location.", 14
                                End If

                            Case "WARPLOC", "WARPLO", "WARPL"
                                GetSections Suffix, 1
                                If Section(1) <> "" Then
                                    A = ReadInt("Warps", Section(1) + "-map")
                                    If A > 0 Then
                                        B = ReadInt("Warps", Section(1) + "-x")
                                        C = ReadInt("Warps", Section(1) + "-y")
                                        SendSocket Chr$(18) + Chr$(1) + DoubleChar(A) + Chr$(B) + Chr$(C)
                                        PrintChat "You have been warped.", 14
                                    Else
                                        PrintChat "No such warp location.", 14
                                    End If
                                Else
                                    PrintChat "You must specify a warp location.", 14
                                End If

                            Case "WARP"
                                GetSections Suffix, 3
                                If Int(Val(Section(1))) > 0 And Int(Val(Section(1))) <= MaxMaps And CByte(Val(Section(2))) <= 11 And CByte(Val(Section(3))) <= 11 Then
                                    SendSocket Chr$(18) + Chr$(1) + DoubleChar(Int(Val(Section(1)))) + Chr$(CByte(Val(Section(2)))) + Chr$(CByte(Val(Section(3))))
                                Else
                                    PrintChat "Invalid Parameters", 14
                                End If

                            Case "NEXTMAP"
                                If Freeze = False And RedrawMap = False Then
                                    Freeze = True
                                    NextTransition = 3
                                    A = CMap + 1
                                    If A > MaxMaps Then A = MaxMaps
                                    SendSocket Chr$(18) + Chr$(1) + DoubleChar(Int(A)) + Chr$(CX) + Chr$(CY)
                                End If

                            Case "PREVMAP"
                                If Freeze = False And RedrawMap = False Then
                                    Freeze = True
                                    NextTransition = 3
                                    A = CMap - 1
                                    If A = 0 Then A = 1
                                    SendSocket Chr$(18) + Chr$(1) + DoubleChar(Int(A)) + Chr$(CX) + Chr$(CY)
                                End If

                            Case "WARPME", "WARPM"
                                GetSections Suffix, 1
                                If Section(1) <> "" Then
                                    A = FindPlayer(Section(1))
                                    If A > 0 Then
                                        SendSocket Chr$(18) + Chr$(2) + Chr$(A)
                                        PrintChat "You have been warped to " + Player(A).name + ".", 14
                                    Else
                                        PrintChat "No such player", 14
                                    End If
                                Else
                                    PrintChat "You must specify a player to warp to.", 14
                                End If

                            Case "WARPTOME", "WARPTOM", "WARPTO", "WARPT"
                                If Character.Access >= 2 Then
                                    GetSections Suffix, 1
                                    If Section(1) <> "" Then
                                        A = FindPlayer(Section(1))
                                        If A > 0 Then
                                            SendSocket Chr$(18) + Chr$(3) + Chr$(A) + DoubleChar(CMap) + Chr$(CX) + Chr$(CY)
                                            PrintChat Player(A).name + " has been warped to you.", YELLOW
                                        Else
                                            PrintChat "No such player", YELLOW
                                        End If
                                    Else
                                        PrintChat "You must specify a player to warp to.", YELLOW
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If

                            Case "VIEWMAPS"
                                If Character.Access >= 1 Then    'God+
                                    'frmMain.picMapSearch.Visible = True
                                    SendSocket Chr$(115)
                                Else
                                    PrintChat "You do not have access to that command!", YELLOW
                                End If

                            Case "EDITMAP"
                                If Character.Access >= 1 Then    'God+
                                    If MapEdit = False Then
                                        OpenMapEdit
                                    Else
                                        PrintChat "The map editor is already open!", 14
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", YELLOW
                                End If

                            Case "BANS"
                                If Character.Access >= 2 Then    'God+
                                    If frmList_Loaded = False Then Load frmList
                                    With frmList
                                        .lstList.Clear
                                        ListEditMode = modeBans
                                    End With
                                    SendSocket Chr$(18) + Chr$(12)
                                Else
                                    PrintChat "You do not have access to that command!", YELLOW
                                End If

                            Case "EDITHALL"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 1
                                    If Section(1) <> "" And Val(Section(1)) >= 1 And Val(Section(1)) <= 255 Then
                                        SendSocket Chr$(48) + Chr$(Val(Section(1)))
                                    Else
                                        If frmList_Loaded = False Then Load frmList
                                        With frmList
                                            ListEditMode = modeHalls
                                            frmList.DrawList
                                            .Show
                                        End With
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", YELLOW
                                End If
                            Case "EDITSCRIPT"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 1
                                    If Section(1) <> "" Then
                                        If Len(Section(1)) <= 25 Then
                                            Dim CheckSum As Long
                                            CheckSum = ComputeCheckSum("mbsc.inc")
                                            If Not CheckSum = ScriptChecksum Then
                                                PrintChat "You cannot edit scripts because you have the wrong mbsc.inc!  Checksum:  " + CStr(CheckSum), YELLOW
                                            Else
                                                SendSocket Chr$(59) + Section(1)
                                                Call ScriptQueueAdd(Section(1))
                                            End If
                                        Else
                                            PrintChat "Error: Script name too long!", YELLOW
                                        End If
                                    Else
                                        PrintChat "Must specify a script name!", YELLOW
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", YELLOW
                                End If
                            Case "EDITOBJECT"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 1
                                    If Section(1) <> "" And Val(Section(1)) >= 1 And Val(Section(1)) <= MaxObjects Then
                                        SendSocket Chr$(19) + DoubleChar$(Val(Section(1)))
                                    Else
                                        If frmList_Loaded = False Then Load frmList
                                        With frmList
                                            ListEditMode = modeObjects
                                            frmList.DrawList
                                            .Show
                                        End With
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "EDITMONSTER"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 1
                                    If Section(1) <> "" And Val(Section(1)) >= 1 And Val(Section(1)) <= MaxTotalMonsters Then
                                        SendSocket Chr$(20) + DoubleChar$(Val(Section(1)))
                                    Else
                                        If frmList_Loaded = False Then Load frmList
                                        With frmList
                                            ListEditMode = modeMonsters
                                            frmList.DrawList
                                            .Show
                                        End With
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "EDITMAGIC"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 1
                                    If Section(1) <> "" And Val(Section(1)) >= 1 And Val(Section(1)) <= MaxMagic Then
                                        SendSocket Chr$(82) + DoubleChar$(Val(Section(1)))
                                    Else
                                        If frmList_Loaded = False Then Load frmList
                                        With frmList
                                            ListEditMode = modeMagic
                                            frmList.DrawList
                                            .Show
                                        End With
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "EDITNPC"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 1
                                    If Section(1) <> "" And Val(Section(1)) >= 1 And Val(Section(1)) <= MaxNPCs Then
                                        SendSocket Chr$(50) + DoubleChar$(Val(Section(1)))
                                    Else
                                        If frmList_Loaded = False Then Load frmList
                                        With frmList
                                            ListEditMode = modeNPCs
                                            frmList.DrawList
                                            .Show
                                        End With
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "EDITPREFIX"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 1
                                    If Section(1) <> "" And Val(Section(1)) >= 1 And Val(Section(1)) <= MaxModifications Then
                                        SendSocket Chr$(86) + Chr$(Val(Section(1)))
                                    Else
                                        If frmList_Loaded = False Then Load frmList
                                        With frmList
                                            ListEditMode = modePrefix
                                            frmList.DrawList
                                            .Show
                                        End With
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case "EDITSUFFIX"
                                If Character.Access >= 2 Then    'God+
                                    GetSections Suffix, 1
                                    If Section(1) <> "" And Val(Section(1)) >= 1 And Val(Section(1)) <= MaxModifications Then
                                        SendSocket Chr$(88) + Chr$(Val(Section(1)))
                                    Else
                                        If frmList_Loaded = False Then Load frmList
                                        With frmList
                                            ListEditMode = modeSuffix
                                            frmList.DrawList
                                            .Show
                                        End With
                                    End If
                                Else
                                    PrintChat "You do not have access to that command!", 14
                                End If
                            Case Else
                                PrintChat "No such god command!", 14
                            End Select
                        Else
                            PrintChat "You do not have god access!", 14
                        End If
                    Case Else
                        St1 = UCase$(Section(1))
                        GetSections Suffix, 3
                        SendSocket Chr$(62) + St1 + vbNullChar + Section(1) + vbNullChar + Section(2) + vbNullChar + Section(3)
                    End Select
                End If
            Else
                ' If SwearFilter(ChatString) = True Then
                '     PrintChat "Vulgar language is not allowed on Odyssey.", YELLOW
                '     ChatString = vbNullString
                '     Exit Sub
                ' End If
                SendSocket Chr$(6) + ChatString
                PrintChat "You say, " + Chr$(34) + SwearFilter(ChatString) + Chr$(34), 7
            End If
            ChatString = vbNullString
        Else
            'Pick up object
            For A = 0 To MaxMapObjects
                With Map.Object(A)
                    If .Object > 0 Then
                        If .X = CX And .Y = CY And .PickedUp < Tick And (FreeInvSlot = True Or Object(.Object).Type = 6) Then
                            SendSocket Chr$(8) + Chr$(A)
                            .PickedUp = Tick + 1500
                            RedrawMapTile CLng(.X), CLng(.Y)
                        End If
                    End If
                End With
            Next A
        End If
    End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    SkillKeyDown = 0
    Select Case KeyCode
    Case 112, 113, 114, 115, 116, 117, 118, 119, 120, 121    'F1-F10
        If keyAlt = True Then
        ElseIf keyEscape = True And picSkills.Visible = True Then
        Else    'Skill Macro
            ListIndex = Character.Hotkey(KeyCode - 111).Hotkey
            picList.Visible = True
            DrawMagicList
            Select Case Character.Hotkey(KeyCode - 111).Type
            Case 1    'Skill
                'DrawSkillsList
            Case 3    'Magic
                sclMagic.value = Character.Hotkey(KeyCode - 111).ScrollPosition
                sclMagic_Change
                ListIndex = ListIndex - sclMagic.value
                DrawMagicList
                picList_DblClick
            End Select
        End If
    Case vbKeyShift
        keyShift = False
    Case vbKeyLeft
        keyLeft = False
    Case vbKeyRight
        keyRight = False
    Case vbKeyUp
        keyUp = False
    Case vbKeyDown
        keyDown = False
    Case vbKeyControl
        keyCtrl = False
    Case vbKeyAlt
        keyAlt = False
    Case vbKeyEscape
        keyEscape = False
    End Select
End Sub

Private Sub Form_Load()
    On Error Resume Next
    Dim Curr_obj As Control, i As Long
    If options.ChatLinks = True Then
        If options.TimeStamp = False Then
            EnableURLDetect frmMain.ChatBox.hwnd, frmMain.hwnd
        Else
            EnableURLDetect frmMain.TimeChatBox.hwnd, frmMain.hwnd
        End If
    Else
        DisableURLDetect
    End If
    DragBankNum = -1
    With frmMain
        .Height = 9000
        .Width = 12000
        .picSellObject.Left = 32
        .picSellObject.Top = 96
        .picRepair.Left = 32
        .picRepair.Top = 96
        .picDrop.Left = 88
        .picDrop.Top = 144
        .picBank.Left = 96
        .picBank.Top = 32
        .picSkills.Left = 448
        .picSkills.Top = 88
        .picBuy.Left = 8
        .picBuy.Top = 8
        .picHelp.Top = 368
        .picHelp.Left = 544
        .picMapEdit.Left = 392
        .picMapEdit.Top = 112
        .lblObjectInfoShadow.Left = .lblObjectInfo.Left + 2
        .lblObjectInfoShadow.Top = .lblObjectInfo.Top + 2
        .TimeChatBox.Left = .ChatBox.Left
        .TimeChatBox.Top = .ChatBox.Top
        .TimeChatBox.Width = .ChatBox.Width
        .TimeChatBox.Height = .ChatBox.Height
        .GodMenu.Top = 264
        .GodMenu.Left = 640
    End With
    If IsWine = True Then
        frmMain.picBank.Left = 451
        frmMain.picBank.Top = 280
        frmMain.picDrop.Top = 392
        frmMain.picDrop.Left = 232
    End If
    
    frmMain_Loaded = True
    For Each Curr_obj In frmMain.Controls
        ReDim Preserve ControlLocs(i)
        ControlLocs(i).index = -1
        ControlLocs(i).name = Curr_obj.name
        ControlLocs(i).X = Curr_obj.Left
        ControlLocs(i).Y = Curr_obj.Top
        ControlLocs(i).index = Curr_obj.index
        If ControlLocs(i).name = "ChatBox" Then ControlLocs(i).X = frmMain.ChatBox.Width
        If ControlLocs(i).name = "TimeChatBox" Then ControlLocs(i).X = frmMain.ChatBox.Width
        i = i + 1
    Next Curr_obj
    CommonDialog.InitDir = App.Path
    CommonDialog.Filter = "Map (*.map4)|*.map4"
    Call frmMain.store.Navigate("www.odysseyreborn.com/catalog")
    Dim File As String
    Dim FileByteArray() As Byte

    File = "interface.rsc"
    FileByteArray() = StrConv(File, vbFromUnicode)
    ReDim Preserve FileByteArray(UBound(FileByteArray) + 1)

    EncryptDataFile FileByteArray(0), FileLen(File) Mod 87 + 5
    frmMain.BackGround.Picture = LoadPicture(File)
    
    EncryptDataFile FileByteArray(0), FileLen(File) Mod 87 + 5


    File = "stats.rsc"
    FileByteArray() = StrConv(File, vbFromUnicode)
    ReDim Preserve FileByteArray(UBound(FileByteArray) + 1)

    EncryptDataFile FileByteArray(0), FileLen(File) Mod 87 + 5
    frmMain.picStats.Picture = LoadPicture(File)
    EncryptDataFile FileByteArray(0), FileLen(File) Mod 87 + 5

    InitializeLighting
    OutdoorLight = 150

    UnloadDirectDraw
    InitDirectDraw
    LoadSurfaces
    frmMain.BackGround.ZOrder (1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DisableURLDetect
    frmMain_Loaded = False
    frmMain_Showing = False
End Sub

Private Sub lblEditMode_MouseDown(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblEditMode(index).BackColor = &H61514B
End Sub

Private Sub lblEditMode_MouseUp(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim A As Byte, B As Byte, C As Long, D As Long

    If index <= 7 Then
        EditMode = index
        For A = 0 To 7
            If A <> index Then
                lblEditMode(A).BackColor = &H44342E
            End If
            If A >= 6 Then RedrawMap = True
            If A = 7 Then
                Select Case CurAtt
                Case 2, 3, 7, 8, 9, 17, 19, 20, 21    'Warp, Key, Object, Touch Plate, Damage, Directional Wall, Light, Dampening Wall, Object Picture
                    CurAtt = 0
                Case Else
                    lblCurTile = CurAtt
                End Select
                RedrawTile
            End If
        Next A
    End If
    Select Case index
    Case 8    'Fill
        lblEditMode(index).BackColor = &H44342E
        For A = 0 To 11
            For B = 0 To 11
                With EditMap.Tile(A, B)
                    Select Case EditMode
                    Case 0    'Ground
                        .Ground = CurTile
                    Case 1    'Ground2
                        .Ground2 = CurTile
                    Case 2    'BGTile1
                        .BGTile1 = CurTile
                    Case 3    'BGTile2
                        .BGTile2 = CurTile
                    Case 4    'FGTile
                        .FGTile = CurTile
                    Case 5    'FGTile2
                        .FGTile2 = CurTile
                    Case 6    'Attribute
                        .Att = CurAtt
                        .AttData(0) = CurAttData(0)
                        .AttData(1) = CurAttData(1)
                        .AttData(2) = CurAttData(2)
                        .AttData(3) = CurAttData(3)
                    End Select
                    RedrawMapTile A, B
                End With
            Next B
        Next A
    Case 9    'Sand
        lblEditMode(index).BackColor = &H44342E
        For A = 0 To 11
            For B = 0 To 11
                With EditMap.Tile(A, B)
                    If .Ground = 30 Or .Ground = 1397 Or .Ground = 1404 Or .Ground = 1390 Then
                        .Ground = 30
                        D = Int(Rnd * 3)
                        Select Case D
                        Case 0

                        Case 1

                        Case 2

                        End Select


                        RedrawMapTile A, B
                    End If
                End With
            Next B
        Next A
    Case 10    'Trees
        lblEditMode(index).BackColor = &H44342E
        For A = 0 To 11
            For B = 0 To 11
                Randomize
                If EditMap.Tile(A, B).BGTile1 = 63 Or EditMap.Tile(A, B).BGTile1 = 504 Or EditMap.Tile(A, B).BGTile1 = 693 Or EditMap.Tile(A, B).BGTile1 = 1505 Or EditMap.Tile(A, B).BGTile1 = 1499 Or EditMap.Tile(A, B).BGTile1 = 1302 Or EditMap.Tile(A, B).BGTile1 = 1501 Or EditMap.Tile(A, B).BGTile1 = 692 Or EditMap.Tile(A, B).BGTile1 = 691 Or EditMap.Tile(A, B).BGTile1 = 673 Or EditMap.Tile(A, B).BGTile1 = 659 Then
                    C = Int(Rnd * 11)
                    Select Case C
                    Case 0
                        EditMap.Tile(A, B).BGTile1 = 63
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 56
                    Case 1
                        EditMap.Tile(A, B).BGTile1 = 504
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 497
                    Case 2
                        EditMap.Tile(A, B).BGTile1 = 693
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 686
                    Case 3
                        EditMap.Tile(A, B).BGTile1 = 1505
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 1498
                    Case 4
                        EditMap.Tile(A, B).BGTile1 = 1499
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 1492
                    Case 5
                        EditMap.Tile(A, B).BGTile1 = 63
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 56
                    Case 6
                        EditMap.Tile(A, B).BGTile1 = 659
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 652
                    Case 7
                        EditMap.Tile(A, B).BGTile1 = 673
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 666
                    Case 8
                        EditMap.Tile(A, B).BGTile1 = 691
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 684
                    Case 9
                        EditMap.Tile(A, B).BGTile1 = 1302
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 1295
                    Case 10
                        EditMap.Tile(A, B).BGTile1 = 692
                        If B - 1 >= 0 Then EditMap.Tile(A, B - 1).FGTile = 685
                    End Select
                    RedrawMapTile A, B
                    If B - 1 >= 0 Then RedrawMapTile A, B - 1
                End If
                If B = 11 Then
                    If EditMap.Tile(A, B).FGTile = 56 Or EditMap.Tile(A, B).FGTile = 497 Or EditMap.Tile(A, B).FGTile = 686 Or EditMap.Tile(A, B).FGTile = 1498 Or EditMap.Tile(A, B).FGTile = 1492 Then
                        C = Int(Rnd * 2)
                        Select Case C
                        Case 0
                            EditMap.Tile(A, B).FGTile = 56
                        Case 1
                            EditMap.Tile(A, B).FGTile = 497
                        End Select
                        RedrawMapTile A, B
                    End If
                End If
            Next B
        Next A
    Case 11    'Grass
        lblEditMode(index).BackColor = &H44342E
        For A = 0 To 11
            For B = 0 To 11
                With EditMap.Tile(A, B)
                    If .Ground = 33 Then
                        Randomize
                        D = Int(Rnd * 5)
                        Randomize
                        If Not D = 4 Then
                            C = 568 + Int(Rnd * 18)
                        Else
                            C = 586 + Int(Rnd * 10)
                        End If
                        .Ground = C
                        RedrawMapTile A, B
                    ElseIf .Ground > 567 And .Ground < 596 Then
                        Randomize
                        D = Int(Rnd * 5)
                        Randomize
                        If Not D = 4 Then
                            C = 568 + Int(Rnd * 18)
                        Else
                            C = 586 + Int(Rnd * 10)
                        End If
                        .Ground = C
                        RedrawMapTile A, B
                    End If
                End With
            Next B
        Next A
    End Select
    RedrawTiles
    RedrawTile
End Sub

Private Sub lblMenu_MouseDown(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblMenu(index).BackColor = QBColor(15)
End Sub

Private Sub lblMenu_MouseUp(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
    Dim A As Long, i As Long, Curr_obj As Control
    lblMenu(index).BackColor = &H44342E
    Select Case index
    Case 0    'Options
        ChatString = "/Options"
        Form_KeyPress 13
    Case 1    'Quit
        If Character.IsDead = True Then
            PrintChat "You are dead!", YELLOW
            Exit Sub
        End If
        If HasFullStats = False Then
            PrintChat "You must recover first!", YELLOW
            Exit Sub
        End If
        For i = 0 To 29
            Character.ItemBank(i).Object = 0
        Next
        For i = 0 To UBound(ControlLocs)
            For Each Curr_obj In frmMain.Controls
               
                If ControlLocs(i).name = Curr_obj.name Then
                    If ControlLocs(i).index > 0 Then
                        If Not ControlLocs(i).index = Curr_obj.index Then
                            Exit For
                        End If
                    End If
                    If Not LCase(Curr_obj.name) = "picviewport" And Not TypeName(Curr_obj) = "Timer" And Not TypeName(Curr_obj) = "CommonDialog" Then
                        Curr_obj.Left = ControlLocs(i).X + Int((frmMain.Width - 12000) / 15)
                        Curr_obj.Top = ControlLocs(i).Y + Int((frmMain.Height - 9000) / 15)
                    End If
                End If
            Next Curr_obj
        Next
        CloseClientSocket 0
        Character.Projectile = False
        Character.Ammo = 0

    Case 2    'MapEdit/Up
        If TopY > 0 Then
            TopY = TopY - 32
            RedrawTiles
        End If
    Case 3    'MapEdit/Down
        If TopY < 38000 Then
            TopY = TopY + 32
            RedrawTiles
        End If
    Case 4    'MapEdit/Upload
        UploadMap
        CloseMapEdit
    Case 5    'MapEdit/Cancel
        If MsgBox("Changes will be lost, continue?", vbYesNo + vbQuestion, TitleString) = vbYes Then
            CloseMapEdit
        End If
    Case 6    '
    Case 7 ' Map Search Close
    Case 8    '
    Case 9    '
    Case 10    '
    Case 11    '
    Case 12    '
    Case 13    '
    Case 14    '
    Case 15    '
    Case 16    'Repair/Repair All
        SendSocket Chr$(65) + Chr$(3)
        picRepair.Visible = False
    Case 17    'Close Item Bank
        picBank.Visible = False
    Case 18    'Minimize
        Me.WindowState = 1
    Case 19    'Sell Button
        If CurInvObj >= 1 And CurInvObj <= 20 Then
            If Character.Inv(CurInvObj).Object > 0 Then
                If Object(Character.Inv(CurInvObj).Object).SellPrice > 0 Then
                    SendSocket Chr$(97) + Chr$(1) + Chr$(CurInvObj)
                Else
                    PrintChat "This object cannot be sold!", 14
                End If
            Else
                PrintChat "Select an object from your inventory to sell", 14
            End If
        Else
            PrintChat "Select an object from your inventory to sell", 14
        End If
    Case 20    'Close Newbie Help
        picHelp.Visible = False
    Case 21    'Magic Window
        MagicMenu = 1
        picSkills.Visible = True
        DrawMagicList
    Case 22    'Cancel Sell Item
        picSellObject.Visible = False
    Case 23    'Skills Window
        MagicMenu = 2
        picSkills.Visible = True
        DrawSkillsList
    Case 24    'Inventory Button
        picSkills.Visible = False
        DrawInterfaceLights
    Case 25    'Store Button
        If IsSteam = True Then
            Call PrintChat("Store is currently disabled for players connecting through Steam.", YELLOW)
            Exit Sub
        End If
        If Not frmMain.store.LocationURL = "https://www.odysseyreborn.com/catalog/" Then Call frmMain.store.Navigate("https://www.odysseyreborn.com/catalog")
        frmMain.storeframe.Left = 0
        frmMain.storeframe.Top = 0
        frmMain.storeframe.Height = frmMain.Height
        frmMain.storeframe.Width = frmMain.Width
    
        frmMain.store.Width = frmMain.Width
        frmMain.BrowserClose.Width = frmMain.Width
        frmMain.store.Height = frmMain.Height - frmMain.BrowserClose.Height
        frmMain.storeframe.Visible = True
    Case 26    '

    Case 27    '

    Case 28    '

    Case 29    '

    Case 30    '

    Case 31    '

    Case 32    '

    Case 33    '

    Case 34    'Drop/Cancel
        picDrop.Visible = False
        frmMain.KeyPreview = True
        txtDrop.Text = vbNullString
    Case 35    'Drop/Ok
        If TempVar1 > 0 Then
            If lblDrop.Caption = "Deposit how much?" Then
                SendSocket Chr$(55) + Chr$(2) + QuadChar(TempVar1)
                picDrop.Visible = False
                frmMain.KeyPreview = True
                txtDrop.Text = vbNullString
            ElseIf lblDrop.Caption = "Deposit how many?" Then
                SendSocket Chr$(55) + Chr$(5) + Chr$(TempVar3) + QuadChar$(TempVar1) + Chr$(CurBankPage)
                picDrop.Visible = False
                frmMain.KeyPreview = True
                txtDrop.Text = vbNullString
            ElseIf lblDrop.Caption = "Withdraw how much?" Then
                SendSocket Chr$(55) + Chr$(4) + QuadChar(TempVar1)
                picDrop.Visible = False
                frmMain.KeyPreview = True
                txtDrop.Text = vbNullString
            ElseIf lblDrop.Caption = "Withdraw how many?" Then
                SendSocket Chr$(55) + Chr$(6) + Chr$(TempVar3) + QuadChar(TempVar1) + Chr$(CurBankPage)
                picDrop.Visible = False
                frmMain.KeyPreview = True
                txtDrop.Text = vbNullString
            ElseIf lblDrop.Caption = "Enter Sale Price:" Then
                SendSocket Chr$(9) + Chr$(TempVar3) + QuadChar(SaleObjVal) + QuadChar(TempVar1)
                picDrop.Visible = False
                frmMain.KeyPreview = True
                txtDrop.Text = vbNullString
            Else
                If Map.Tile(CX, CY).Att = 29 Or Map.Tile(CX, CY).Att2 = 29 Or Map.Tile(CX, CY).Att = 30 Or Map.Tile(CX, CY).Att2 = 30 Then
                    SaleObjVal = TempVar1
                    frmMain.KeyPreview = False
                    lblDrop.Caption = "Enter Sale Price:"
                    TempVar1 = 0
                    TempVar2 = 10000000
                    txtDrop.Text = 0
                    TempVar1 = 0
                    picDrop.Visible = True
                    picBuy.Visible = False
                Else
                    SendSocket Chr$(9) + Chr$(TempVar3) + QuadChar(TempVar1)
                    picDrop.Visible = False
                    frmMain.KeyPreview = True
                    txtDrop.Text = vbNullString
                End If
            End If
        End If
    Case 36, 37, 38, 39, 40, 41, 42, 43, 44, 45    'Buy/Buy
        With NPC(Map.NPC).SaleItem(index - 36)
            If .GiveObject >= 1 And .TakeObject >= 1 Then
                SendSocket Chr$(53) + Chr$(index - 36)
            End If
        End With
    Case 46    'Buy/Close
        picBuy.Visible = False
    Case 47    'Load Saved Map
        If MsgBox("If you load a new map, the current map will be lost if you have not saved it.  Do you wish to continue?", vbYesNo + vbQuestion, TitleString) = vbYes Then
            CommonDialog.ShowOpen
            If CommonDialog.filename = "" Then

            Else
                OpenMap CommonDialog.filename
            End If
        End If
    Case 48    'Stats
        ChatString = "/Stats"
        Form_KeyPress 13
    Case 49    'Trade
        ChatString = "/Buy"
        Form_KeyPress 13
    Case 50    'Sell
        ChatString = "/Sell"
        Form_KeyPress 13
    Case 51    'Shortcut/Trade
        ChatString = "/Bank"
        Form_KeyPress 13
    Case 52    'Repair
        ChatString = "/Repair"
        Form_KeyPress 13
    Case 53    'Guilds
        ChatString = "/Guilds"
        Form_KeyPress 13
    Case 54    'MapEdit/Copy
        CopyMap ClipboardMap, EditMap
    Case 55    'MapEdit/Paste
        If MsgBox("This will overwrite your current map-- are you sure you wish to paste?", vbYesNo + vbQuestion, TitleString) = vbYes Then
            CopyMap EditMap, ClipboardMap
            RedrawMap = True
        End If
    Case 56    'Repair Button
        SendSocket Chr$(65) + Chr$(2) + Chr$(CurInvObj)
    Case 57    'Repair Cancel
        picRepair.Visible = False
    Case 58    'Map Properties
        lblMenu(index).BackColor = &H44342E
        If frmMapProperties_Loaded = False Then Load frmMapProperties
        With EditMap
            frmMapProperties.Caption = "The Odyssey Reborn [Map " + CStr(CMap) + " Properties]"
            frmMapProperties.txtName = EditMap.name
            frmMapProperties.sclMIDI = .MIDI
            frmMapProperties.txtUp = CStr(.ExitUp)
            frmMapProperties.txtDown = CStr(.ExitDown)
            frmMapProperties.txtLeft = CStr(.ExitLeft)
            frmMapProperties.txtRight = CStr(.ExitRight)
            frmMapProperties.txtBootMap = CStr(.BootLocation.Map)
            frmMapProperties.txtBootX = CStr(.BootLocation.X)
            frmMapProperties.txtBootY = CStr(.BootLocation.Y)
            frmMapProperties.txtDeathMap = CStr(.DeathLocation.Map)
            frmMapProperties.txtDeathX = CStr(.DeathLocation.X)
            frmMapProperties.txtDeathY = CStr(.DeathLocation.Y)
            frmMapProperties.cmbNPC.ListIndex = .NPC
            For A = 0 To 9
                frmMapProperties.cmbMonster(A).ListIndex = .MonsterSpawn(A).Monster
                frmMapProperties.sclRate(A) = .MonsterSpawn(A).Rate
            Next A
            For A = 0 To 7
                If ExamineBit(.flags, CByte(A)) Then
                    frmMapProperties.chkFlag(A) = 1
                Else
                    frmMapProperties.chkFlag(A) = 0
                End If
                If ExamineBit(.Flags2, CByte(A)) Then
                    frmMapProperties.chkFlag2(A) = 1
                Else
                    frmMapProperties.chkFlag2(A) = 0
                End If
            Next A
        End With
        frmMapProperties.Show 1
    Case 59    'Sell All
        If CurInvObj >= 1 And CurInvObj <= 20 Then
            If Character.Inv(CurInvObj).Object > 0 Then
                If Object(Character.Inv(CurInvObj).Object).SellPrice > 0 Then
                    SendSocket Chr$(97) + Chr$(2) + Chr$(CurInvObj)
                Else
                    PrintChat "This object cannot be sold!", 14
                End If
            Else
                PrintChat "Select an object from your inventory to sell", 14
            End If
        Else
            PrintChat "Select an object from your inventory to sell", 14
        End If
    Case 60    'Save Map
        CommonDialog.ShowSave
        If CommonDialog.filename = "" Then

        Else
            SaveMap CommonDialog.filename
        End If
    End Select
End Sub


Private Sub PicBankInv_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        DragBankNum = CurBankObj
    End If
End Sub

Private Sub PicBankInv_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CurBankObj = Int(X / 36) + Int(Y / 36) * 5
    RefreshBankPage
    If DragBankNum > -1 Then
        If Button = 1 Then
            DragBankX = X
            DragBankY = Y
            If DragBankX < 16 Then DragBankX = 16
            If DragBankX > PicBankInv.Width - 16 Then DragBankX = PicBankInv.Width - 16
            If DragBankY < 16 Then DragBankY = 16
            If DragBankY > PicBankInv.Height - 16 Then DragBankY = PicBankInv.Height - 16
            RefreshBankPage
        Else
            DragBankNum = -1
        End If
    Else
        DragBankNum = -1
    End If
End Sub

Private Sub PicBankInv_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    If DragBankNum > -1 Then
        If Not CurBankObj = DragBankNum Then
            SendSocket Chr$(105) & Chr(DragBankNum) & Chr(CurBankObj) & Chr(CurBankPage)
            Character.ItemBank(GetBankInvNum(DragBankNum)).Object = 0
            Character.ItemBank(GetBankInvNum(CurBankObj)).Object = 0
            DragBankNum = -1
        Else
            DragBankNum = -1
        End If
    End If
End Sub

Private Sub picInventory_DblClick()
    If Character.IsDead = True Then
        Exit Sub
    End If

    If CurInvObj > 0 And picRepair.Visible = False And picSellObject.Visible = False Then
        If picBank.Visible = True And CurInvObj <= 20 Then
            With Character.Inv(CurInvObj)
                If .Object > 0 Then
                    If Not Object(.Object).Type = 6 And Not Object(.Object).Type = 11 Then
                        SendSocket Chr$(55) & Chr$(1) & Chr$(CurInvObj) & Chr$(CurBankPage)
                    Else
                        If .Object = World.ObjMoney Then    'Gold
                            frmMain.KeyPreview = False
                            lblDrop.Caption = "Deposit how much?"
                            TempVar1 = 0
                            TempVar2 = Character.Inv(CurInvObj).value
                            TempVar3 = CurInvObj
                            txtDrop.Text = TempVar2
                            TempVar1 = TempVar2
                            picDrop.Visible = True
                            picBuy.Visible = False
                        Else
                            frmMain.KeyPreview = False
                            lblDrop.Caption = "Deposit how many?"
                            TempVar1 = 0
                            TempVar2 = Character.Inv(CurInvObj).value
                            TempVar3 = CurInvObj
                            txtDrop.Text = TempVar2
                            TempVar1 = TempVar2
                            picDrop.Visible = True
                            picBuy.Visible = False
                        End If
                    End If
                Else
                    PrintChat "No such object.", 7
                End If
            End With
        Else
            If CurInvObj <= 20 Then
                With Character.Inv(CurInvObj)
                    If .EquippedNum > 0 Then
                        If HasFullStats = False Then
                            PrintChat "You must recover first!", YELLOW
                            Exit Sub
                        End If
                        SendSocket Chr$(11) + Chr$(6)    'Stop Using Obj
                    Else
                        If Not Character.Inv(CurInvObj).Object = 0 Then
                            Select Case Object(CLng(Character.Inv(CurInvObj).Object)).Type
                            Case 1, 2, 3, 4
                                If Character.EquippedObject(Object(CLng(Character.Inv(CurInvObj).Object)).Type).Object = 0 Then
                                    SendSocket Chr$(10) + Chr$(CurInvObj)    'Use Obj
                                Else
                                    If HasFullStats Then
                                        SendSocket Chr$(10) + Chr$(CurInvObj)    'Use Obj
                                    Else
                                        PrintChat "You must recover first!", YELLOW
                                    End If
                                End If
                            Case 8
                                If Character.EquippedObject(5).Object = 0 Then
                                    SendSocket Chr$(10) + Chr$(CurInvObj)    'Use Obj
                                Else
                                    If HasFullStats Then
                                        SendSocket Chr$(10) + Chr$(CurInvObj)    'Use Obj
                                    Else
                                        PrintChat "You must recover first!", YELLOW
                                    End If
                                End If
                            Case Else
                                SendSocket Chr$(10) + Chr$(CurInvObj)    'Use Obj
                            End Select
                        End If
                    End If
                End With
            Else
                If Character.EquippedObject(CurInvObj - 20).Object > 0 Then
                    If HasFullStats = False Then
                        PrintChat "You must recover first!", YELLOW
                        Exit Sub
                    End If
                    SendSocket Chr$(11) + Chr$(CurInvObj - 20)    'Stop Using Object
                End If
            End If
        End If
    End If
End Sub

Private Sub picInventory_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Character.IsDead = True Then
        Exit Sub
    End If

    Dim OldInvObj As Long
    OldInvObj = CurInvObj
    CurInvObj = Int(X / 36) + Int(Y / 36) * 5 + 1
    If CurInvObj < 1 Then CurInvObj = 1
    If CurInvObj > 25 Then CurInvObj = 25
    If picRepair.Visible = True Then
        If CurInvObj <> OldInvObj Then
            DisplayRepair
            RefreshInventory
        End If
    ElseIf picSellObject.Visible = True Then
        If CurInvObj <> OldInvObj Then
            DisplaySell
            RefreshInventory
        End If
    Else
        If CurInvObj <> OldInvObj Then
            RefreshInventory
        End If
    End If

    If Button = 2 And CurInvObj <= 20 Then
        If Character.Inv(CurInvObj).Object > 0 Then
            If Object(Character.Inv(CurInvObj).Object).Type = 6 Or Object(Character.Inv(CurInvObj).Object).Type = 11 Then
                'Money
                frmMain.KeyPreview = False
                lblDrop.Caption = "Drop how much?"
                TempVar1 = 0
                TempVar2 = Character.Inv(CurInvObj).value
                TempVar3 = CurInvObj
                txtDrop.Text = TempVar2
                TempVar1 = TempVar2
                picDrop.Visible = True
                picBuy.Visible = False
            Else
                If Map.Tile(CX, CY).Att = 29 Or Map.Tile(CX, CY).Att2 = 29 Or Map.Tile(CX, CY).Att = 30 Or Map.Tile(CX, CY).Att2 = 30 Then
                    frmMain.KeyPreview = False
                    lblDrop.Caption = "Enter Sale Price:"
                    TempVar1 = 0
                    TempVar2 = 10000000
                    TempVar3 = CurInvObj
                    txtDrop.Text = 0
                    TempVar1 = 0
                    picDrop.Visible = True
                    picBuy.Visible = False
                Else
                    SendSocket Chr$(9) + Chr$(CurInvObj) + QuadChar(0)
                End If
            End If
        End If
    End If
End Sub

Private Sub picInventory_MouseMove(Button As Integer, Shift As Integer, XX As Single, YY As Single)
    On Error Resume Next
    If Button = 1 Then
        If frmMain.Visible = False Then Exit Sub
        If CurInvObj > 20 Then Exit Sub
        Dim A As Long, X As Long, Y As Long
        DragInventoryNum = CurInvObj
        DragInventoryX = XX - 16
        DragInventoryY = YY - 16
        If DragInventoryX < 0 Then DragInventoryX = 0
        If DragInventoryY < 0 Then DragInventoryY = 0
        If DragInventoryX > 150 Then DragInventoryX = 150
        If DragInventoryY > 110 Then DragInventoryY = 110
        RefreshInventory
        'X = XX
        'Y = YY
        'BitBlt frmMain.PicDrag.HDC, 0, 0, 32, 32, 0, 0, 0, BLACKNESS
        'DrawToDC 0, 0, 32, 32, frmMain.PicDrag.HDC, DDSObjects, 0, (Object(Character.Inv(CurInvObj).Object).Picture - 1) * 32
        'frmMain.PicDrag.left = frmMain.picInventory.left + XX
        'frmMain.PicDrag.top = frmMain.picInventory.top + YY
    End If
End Sub

Private Sub picInventory_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If DragInventoryNum > 0 Then
        DragInventoryNum = 0
        RefreshInventory
        Dim OldInvObj As Long
        If CurInvObj < 1 Then Exit Sub
        If CurInvObj > 20 Then Exit Sub
        OldInvObj = CurInvObj
        CurInvObj = Int(X / 36) + Int(Y / 36) * 5 + 1
        If CurInvObj < 1 Then Exit Sub
        If CurInvObj > 20 Then Exit Sub
        SendSocket Chr$(108) + Chr$(OldInvObj) + Chr$(CurInvObj)
    End If
    DragInventoryNum = 0
    RefreshInventory

End Sub

Private Sub picTile_Click()
Dim X As Long, Y As Long
    X = ((CurTile - 1) Mod 7) * 32
    Y = ((CurTile - 1) \ 7) * 32
    TopY = Y - 96
    If TopY < 0 Then Exit Sub
    MapScroll.value = TopY / 32
    Selectsize.Top = Y - TopY
    Selectsize.Left = X
    RedrawTiles
End Sub

Private Sub picTiles_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim TheX As Single, TheY As Single
    If Button = 1 Then
        If EditMode < 6 Then
            If (Int(X / 32) * 32) + Selectsize.Width <= (7 * 32) And (Int(Y / 32) * 32) + Selectsize.Height <= (6 * 32) Then
                CurTile = Int((Y + TopY) / 32) * 7 + Int(X / 32) + 1
                Selectsize.Left = Int(X / 32) * 32
                Selectsize.Top = Int(Y / 32) * 32
                lblCurTile = CurTile
                RedrawTile
            Else
                TheX = X: TheY = Y
                If (Int(X / 32) * 32) + Selectsize.Width > (7 * 32) Then
                    TheX = X - 32
                End If
                If (Int(Y / 32) * 32) + Selectsize.Height > (6 * 32) Then
                    TheY = Y - 32
                End If
                Call picTiles_MouseDown(Button, Shift, TheX, TheY)
            End If
        Else
             If EditMode = 6 Then
                NewAtt = Int(Y / 32) * 7 + Int(X / 32) + 1
                If NewAtt <= MaxAtt Then
                    Select Case NewAtt
                    Case 2, 3, 7, 8, 9, 17, 19, 20, 21, 23, 24, 25, 26, 27   'Warp, Key, Object, Touch Plate, Damage, Directional Wall, Light, Dampening Wall, Object Picture, half tile, speed tile, half player, tile shift tile, Rotate tile, Water Tile
                        frmMapAtt.Show 1
                    Case Else
                        CurAtt = NewAtt
                        lblCurTile = NewAtt
                    End Select
                    RedrawTile
                End If
            Else
                NewAtt = Int(Y / 32) * 7 + Int(X / 32) + 1
                If NewAtt <= MaxAtt Then
                    Select Case NewAtt
                    Case 2, 3, 7, 8, 9, 17, 19, 20, 21, 23, 24, 25, 26 'Warp, Key, Object, Touch Plate, Damage, Directional Wall, Light, Dampening Wall, Object Picture, half tile, speed tile, half player, tile shift tile

                    Case Else
                        CurAtt = NewAtt
                        lblCurTile = NewAtt
                    End Select
                    RedrawTile
                End If
            End If
        End If
    End If
End Sub

Private Sub Picture2_Click()

End Sub

Private Sub picViewport_Click()
Dim X As Long, Y As Long, tx As Byte, ty As Byte
If ClickButton = vbRightButton And options.RCLickMove Then
    DoubleClick = False
    X = (RClickX) / (picViewport.Width / 12)
    Y = (RClickY) / (picViewport.Height / 12)
    tx = MoveLocX
    ty = MoveLocY
    MoveLocX = X + 1
    MoveLocY = Y + 1
    If tx > 0 And ty > 0 Then Call RedrawMapTile(tx - 1, ty - 1)
    Call RedrawMapTile(CByte(X), CByte(Y))
    StopAutoMove = False
    Call GenerateMovePath
End If
End Sub

Private Sub picViewport_DblClick()
Dim X As Long, Y As Long, tx As Byte, ty As Byte
If ClickButton = vbRightButton And options.RCLickMove Then
    DoubleClick = True
    X = (RClickX) / (picViewport.Width / 12)
    Y = (RClickY) / (picViewport.Height / 12)
    tx = MoveLocX
    ty = MoveLocY
    MoveLocX = X + 1
    MoveLocY = Y + 1
    If tx > 0 And ty > 0 Then Call RedrawMapTile(tx - 1, ty - 1)
    Call RedrawMapTile(CByte(X), CByte(Y))
    DoubleClick = True
    StopAutoMove = False
    Call GenerateMovePath
End If
End Sub

Private Sub picViewport_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
    Dim A As Long, MapX As Byte, MapY As Byte, CLX As Long, CLY As Long, ScaleSize As Double
    Dim St As String, i As Byte, TempCurTile As Long, TEMPTEMP As Long
    Dim SelectSizeX As Long, Selectsizey As Long
    
    If X < 0 Or Y < 0 Then Exit Sub
    ClickButton = Button
    ScaleSize = frmMain.picViewport.Width / 12
    MapX = Int(X / ScaleSize)
    MapY = Int(Y / ScaleSize)
    If Selectsize.Width > 32 Or Selectsize.Height > 32 Then
        SelectSizeX = Int(Selectsize.Width / 32)
        Selectsizey = Int(Selectsize.Height / 32)
    End If
    RClickX = X
    RClickY = Y
    RClickX = RClickX - ScaleSize / 2
    RClickY = RClickY - ScaleSize / 2
    If Button = 2 Then
        RClickDown = True
    End If
    If EditScriptTile = True Or EditScriptClickTile = True Then
        If Character.Access >= 2 Then    'God+
            Dim CheckSum As Long
            CheckSum = ComputeCheckSum("mbsc.inc")
            If Not CheckSum = ScriptChecksum Then
                PrintChat "You cannot edit scripts because you have the wrong mbsc.inc!  Checksum:  " + CStr(CheckSum), YELLOW
            Else
                If EditScriptTile = True Then
                    SendSocket Chr$(59) & "map" & CStr(CMap) & "_" & MapX & "_" & MapY
                    Call ScriptQueueAdd("map" & CStr(CMap) & "_" & MapX & "_" & MapY)
                Else
                    SendSocket Chr$(59) & "mapclick" & CStr(CMap) & "_" & MapX & "_" & MapY
                    Call ScriptQueueAdd("mapclick" & CStr(CMap) & "_" & MapX & "_" & MapY)
                End If
                EditScriptTile = False
                EditScriptClickTile = False
            End If
        Else
            PrintChat "You do not have access to that command!", YELLOW
        End If
        Exit Sub
    End If
    If MapEdit = True Then
        If MapX >= 0 And MapX <= 11 And MapY >= 0 And MapY <= 11 Then
            If Button = 1 Then
                If keyCtrl = False Then
                    If SelectSizeX > 0 Or Selectsizey > 0 Then
                        For i = MapX To MapX + SelectSizeX - 1
                            If i > 11 Then Exit For
                            TEMPTEMP = CurTile + (1 * (i - MapX))
                            For A = MapY To Selectsizey + MapY - 1
                                If MapY < 0 Then MapY = 0
                                If A > 11 Then Exit For
                                TempCurTile = TEMPTEMP + (7 * (A - MapY))
                                Select Case EditMode
                                    Case 0    'Ground
                                        EditMap.Tile(i, A).Ground = TempCurTile
                                        RedrawMapTile i, A
                                    Case 1    'Ground2
                                        EditMap.Tile(i, A).Ground2 = TempCurTile
                                        RedrawMapTile i, A
                                    Case 2    'BGTile1
                                        EditMap.Tile(i, A).BGTile1 = TempCurTile
                                        RedrawMapTile i, A
                                    Case 3    'BGTile2
                                        EditMap.Tile(i, A).BGTile2 = TempCurTile
                                        RedrawMapTile i, A
                                    Case 4    'FGTile
                                        EditMap.Tile(i, A).FGTile = TempCurTile
                                        RedrawMapTile i, A
                                    Case 5    'FGTile2
                                        EditMap.Tile(i, A).FGTile2 = TempCurTile
                                        RedrawMapTile i, A
                                    Case 6    'Att1
                                        EditMap.Tile(i, A).Att = CurAtt
                                        EditMap.Tile(i, A).AttData(0) = CurAttData(0)
                                        EditMap.Tile(i, A).AttData(1) = CurAttData(1)
                                        EditMap.Tile(i, A).AttData(2) = CurAttData(2)
                                        EditMap.Tile(i, A).AttData(3) = CurAttData(3)
                                        RedrawMapTile i, A
                                    Case 7    'Att2
                                        EditMap.Tile(i, A).Att2 = CurAtt
                                        RedrawMapTile i, A
                                End Select
                            Next
                        Next
                    Else
                        Select Case EditMode
                        Case 0    'Ground
                            EditMap.Tile(MapX, MapY).Ground = CurTile
                            RedrawMapTile MapX, MapY
                        Case 1    'Ground2
                            EditMap.Tile(MapX, MapY).Ground2 = CurTile
                            RedrawMapTile MapX, MapY
                        Case 2    'BGTile1
                            EditMap.Tile(MapX, MapY).BGTile1 = CurTile
                            RedrawMapTile MapX, MapY
                        Case 3    'BGTile2
                            EditMap.Tile(MapX, MapY).BGTile2 = CurTile
                            RedrawMapTile MapX, MapY
                        Case 4    'FGTile
                            EditMap.Tile(MapX, MapY).FGTile = CurTile
                            RedrawMapTile MapX, MapY
                        Case 5    'FGTile2
                            EditMap.Tile(MapX, MapY).FGTile2 = CurTile
                            RedrawMapTile MapX, MapY
                        Case 6    'Att1
                            EditMap.Tile(MapX, MapY).Att = CurAtt
                            EditMap.Tile(MapX, MapY).AttData(0) = CurAttData(0)
                            EditMap.Tile(MapX, MapY).AttData(1) = CurAttData(1)
                            EditMap.Tile(MapX, MapY).AttData(2) = CurAttData(2)
                            EditMap.Tile(MapX, MapY).AttData(3) = CurAttData(3)
                            RedrawMapTile MapX, MapY
                        Case 7    'Att2
                            EditMap.Tile(MapX, MapY).Att2 = CurAtt
                            RedrawMapTile MapX, MapY
                        End Select
                    End If
                Else
                    Select Case EditMode
                    Case 0    'Ground
                        CurTile = EditMap.Tile(MapX, MapY).Ground
                        lblCurTile = CurTile
                        RedrawTile
                    Case 1    'Ground2
                        CurTile = EditMap.Tile(MapX, MapY).Ground2
                        lblCurTile = CurTile
                        RedrawTile
                    Case 2    'BGTile1
                        CurTile = EditMap.Tile(MapX, MapY).BGTile1
                        RedrawTile
                    Case 3    'BGTile2
                        CurTile = EditMap.Tile(MapX, MapY).BGTile2
                        RedrawTile
                    Case 4    'FGTile
                        CurTile = EditMap.Tile(MapX, MapY).FGTile
                        RedrawTile
                    Case 5    'FGTile2
                        CurTile = EditMap.Tile(MapX, MapY).FGTile2
                        RedrawTile
                    Case 6    'Attribute
                        NewAtt = EditMap.Tile(MapX, MapY).Att
                        CurAtt = NewAtt

                        CurAttData(0) = EditMap.Tile(MapX, MapY).AttData(0)
                        CurAttData(1) = EditMap.Tile(MapX, MapY).AttData(1)
                        CurAttData(2) = EditMap.Tile(MapX, MapY).AttData(2)
                        CurAttData(3) = EditMap.Tile(MapX, MapY).AttData(3)
                        RedrawTile

                        keyCtrl = False
                        Select Case NewAtt
                        Case 2, 3, 7, 8, 9, 17, 19, 20, 21, 23, 24, 25, 26, 27    'Warp, Key, Object, Touch Plate, Damage, Directional Wall, Light, Dampening Wall, Object Picture
                            Load frmMapAtt
                            frmMapAtt.Show
                        Case Else
                            CurAtt = EditMap.Tile(MapX, MapY).Att
                        End Select
                    Case 7    'Att2
                        CurAtt = EditMap.Tile(MapX, MapY).Att2
                        RedrawTile
                    End Select
                End If
            ElseIf Button = 2 Then
                If SelectSizeX > 0 Or Selectsizey > 0 Then
                    For i = MapX To MapX + SelectSizeX - 1
                        If i > 11 Then Exit For
                        TempCurTile = CurTile + (1 * (i - MapX))
                        For A = MapY To Selectsizey + MapY - 1
                            If A > 11 Then Exit For
                                Select Case EditMode
                                Case 0    'Ground
                                    EditMap.Tile(i, A).Ground = 0
                                    RedrawMapTile i, A
                                Case 1    'Ground2
                                    EditMap.Tile(i, A).Ground2 = 0
                                    RedrawMapTile i, A
                                Case 2    'BGTile1
                                    EditMap.Tile(i, A).BGTile1 = 0
                                    RedrawMapTile i, A
                                Case 3    'BGTile1
                                    EditMap.Tile(i, A).BGTile2 = 0
                                    RedrawMapTile i, A
                                Case 4    'FGTile
                                    EditMap.Tile(i, A).FGTile = 0
                                    RedrawMapTile i, A
                                Case 5    'FGTile2
                                    EditMap.Tile(i, A).FGTile2 = 0
                                    RedrawMapTile i, A
                                Case 6    'Attribute
                                    EditMap.Tile(i, A).Att = 0
                                    EditMap.Tile(i, A).AttData(0) = 0
                                    EditMap.Tile(i, A).AttData(1) = 0
                                    EditMap.Tile(i, A).AttData(2) = 0
                                    EditMap.Tile(i, A).AttData(3) = 0
                                    RedrawMapTile i, A
                                Case 7    'Att2
                                    EditMap.Tile(i, A).Att2 = 0
                                    RedrawMapTile i, A
                                End Select
                        Next
                    Next
                Else
                    Select Case EditMode
                        Case 0    'Ground
                            EditMap.Tile(MapX, MapY).Ground = 0
                            RedrawMapTile MapX, MapY
                        Case 1    'Ground2
                            EditMap.Tile(MapX, MapY).Ground2 = 0
                            RedrawMapTile MapX, MapY
                        Case 2    'BGTile1
                            EditMap.Tile(MapX, MapY).BGTile1 = 0
                            RedrawMapTile MapX, MapY
                        Case 3    'BGTile1
                            EditMap.Tile(MapX, MapY).BGTile2 = 0
                            RedrawMapTile MapX, MapY
                        Case 4    'FGTile
                            EditMap.Tile(MapX, MapY).FGTile = 0
                            RedrawMapTile MapX, MapY
                        Case 5    'FGTile2
                            EditMap.Tile(MapX, MapY).FGTile2 = 0
                            RedrawMapTile MapX, MapY
                        Case 6    'Attribute
                            EditMap.Tile(MapX, MapY).Att = 0
                            EditMap.Tile(MapX, MapY).AttData(0) = 0
                            EditMap.Tile(MapX, MapY).AttData(1) = 0
                            EditMap.Tile(MapX, MapY).AttData(2) = 0
                            EditMap.Tile(MapX, MapY).AttData(3) = 0
                            RedrawMapTile MapX, MapY
                        Case 7    'Att2
                            EditMap.Tile(MapX, MapY).Att2 = 0
                            RedrawMapTile MapX, MapY
                    End Select
                End If
            End If
        End If
    Else
        Dim FoundSomething As Boolean
        If Button = 2 Then
            If RClick Then
                Call TryClickAttack(CLng(MapX), CLng(Int((Y + 16) / ScaleSize)))
                'Call TryAttack
            End If
        End If
        If Button = 1 Then
            For A = 1 To MaxUsers
                With Player(A)
                    If .Map = CMap And .X = MapX And .Y = MapY And Not .status = 9 And Not .status = 25 Then
                        If .Guild > 0 Then
                            PrintChat "You see " + .name + ", member of the guild " + Chr$(34) + Guild(.Guild).name + Chr$(34) + "!", 7
                        Else
                            PrintChat "You see " + .name + "!", 7
                        End If
                        SendSocket Chr$(27) + Chr$(A)
                        FoundSomething = True
                    End If
                End With
            Next A
            For A = 0 To MaxMonsters
                With Map.Monster(A)
                    If .Monster > 0 And .X = MapX And .Y = MapY Then
                        PrintChat "You see a " + Monster(.Monster).name + "!", 7
                        FoundSomething = True
                    End If
                End With
            Next A
            For A = 0 To MaxMapObjects
                If Map.Object(A).X = MapX And Map.Object(A).Y = MapY And Map.Object(A).Object > 0 Then
                    Select Case Object(Map.Object(A).Object).Type
                    Case 6, 11
                        PrintChat "You see " + CStr(Map.Object(A).value) + " " + Object(Map.Object(A).Object).name + "!", 7
                    Case 1, 2, 3, 4
                        St = ""
                        If Map.Object(A).ItemPrefix > 0 Then
                            St = ItemPrefix(Map.Object(A).ItemPrefix).name + " "
                        End If
                        If Map.Object(A).ItemSuffix > 0 Then
                            St = St + Object(Map.Object(A).Object).name + " " + ItemSuffix(Map.Object(A).ItemSuffix).name + "!"
                        Else
                            St = St + Object(Map.Object(A).Object).name + "!"
                        End If
                        St = "You see a " + St + "  Condition: " + GetDurStringFromValue(Map.Object(A).value, Object(Map.Object(A).Object).MaxDur)
                        PrintChat St, 7
                    Case 7    'Key
                        St = ""
                        If Map.Object(A).ItemPrefix > 0 Then
                            St = ItemPrefix(Map.Object(A).ItemPrefix).name + " "
                        End If
                        If Map.Object(A).ItemSuffix > 0 Then
                            St = St + Object(Map.Object(A).Object).name + " " + ItemSuffix(Map.Object(A).ItemSuffix).name + "!"
                        Else
                            St = St + Object(Map.Object(A).Object).name + "!"
                        End If
                        St = "You see a " + St + "!"
                        PrintChat St, 7
                    Case Else
                        PrintChat "You see a " + Object(Map.Object(A).Object).name + "!", 7
                    End Select
                    FoundSomething = True
                End If
            Next A
            If Map.Tile(MapX, MapY).Att = 12 Or Map.Tile(MapX, MapY).Att2 = 12 Or Map.Tile(MapX, MapY).Att2 = 30 Or Map.Tile(MapX, MapY).Att2 = 30 Or Map.Tile(MapX, MapY).Att2 = 29 Or Map.Tile(MapX, MapY).Att2 = 29 Then
                SendSocket Chr$(91) + Chr$(MapX) + Chr$(MapY)
                FoundSomething = True
            End If
            If Map.Tile(MapX, MapY).Att = 3 And Map.Tile(MapX, MapY).AttData(2) > 0 Then
                Select Case Map.Tile(MapX, MapY).AttData(2)
                    Case 1
                        Call PrintChat("This lock is unpickable!", 5)
                    Case 2
                        Call PrintChat("You see an easy lock!", 5)
                    Case 3
                        Call PrintChat("You see a medium lock!", 5)
                    Case 4
                        Call PrintChat("You see a hard lock lock!", 5)
                    Case 5
                        Call PrintChat("You see an expert lock!", 5)
                End Select
                FoundSomething = True
            End If
                        
            If FoundSomething = False Then
                PrintChat "You see nothing special.", 7
            End If
        End If
    End If
End Sub

Private Sub picViewport_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RClickX = X - (picViewport.Width / 24)
    RClickY = Y - (picViewport.Height / 24)
    If MapEdit = True Then
        picViewport_MouseDown Button, Shift, X, Y
    End If
End Sub


Private Sub picViewport_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        RClickDown = False
    End If
End Sub

Private Sub Resize_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    LClickDown = True
End If
End Sub

Private Sub Resize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
    Dim Curr_obj As Control, i As Long, BX As Long, BY As Long
    Dim NewX As Long, NewY As Long
    SetCursor LoadCursor(0, "32642")
    Dim CurLoc As POINTAPI
    If LClickDown = True Then
        Call GetCursorPos(CurLoc)
        X = (CurLoc.X + frmMain.Resize.Width) * 15
        Y = (CurLoc.Y + frmMain.Resize.Height) * 15
        NewX = X - frmMain.Left
        NewY = Y - frmMain.Top
        frmMain.Width = NewX
        'frmMain.Height = NewY
        If frmMain.Width < 12000 Then frmMain.Width = 12000
        If frmMain.Height < 9000 Then frmMain.Height = 9000
        frmMain.Width = Int(Int(frmMain.Width - 12000) / 12) * 12 + 12000
        frmMain.Height = Int(Int(frmMain.Width - 12000) / 12) * 12 + 9000
        If frmMain.Width < 12000 Then frmMain.Width = 12000
        If frmMain.Height < 9000 Then frmMain.Height = 9000
        'If frmMain.Top + frmMain.Height > Screen.Height Then
        '    frmMain.Height = Screen.Height - frmMain.Top
        '    frmMain.Width = Int(frmMain.Height * 1.25)
        'End If
        If frmMain.Top < 0 Then frmMain.Top = 0
        If frmMain.Left < 0 Then frmMain.Left = 0
        frmMain.Refresh
        DoEvents
        'Call SetCursorPos(frmMain.Left + frmMain.Width, frmMain.Top + frmMain.Height)
    End If
End Sub

Private Sub Resize_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo 0
Dim i As Long, Curr_obj As Control, Ignore As Boolean
If Button = 1 Then
    LClickDown = False
    For i = 0 To UBound(ControlLocs)
        For Each Curr_obj In frmMain.Controls
           
            If ControlLocs(i).name = Curr_obj.name Then
                Ignore = False
                If ControlLocs(i).index > -1 Then
                    If Not ControlLocs(i).index = Curr_obj.index Then Ignore = True
                End If
                frmMain.Width = Int(Int(frmMain.Width - 12000) / 12) * 12 + 12000
                frmMain.Height = Int(Int(frmMain.Width - 12000) / 12) * 12 + 9000
                If Not Ignore And Not LCase(Curr_obj.name) = "picviewport" And Not TypeName(Curr_obj) = "Timer" And Not TypeName(Curr_obj) = "CommonDialog" Then
                    If Curr_obj.Container.name = "frmMain" Then
                        If Not ControlLocs(i).name = "ChatBox" And Not ControlLocs(i).name = "TimeChatBox" Then
                            Curr_obj.Left = ControlLocs(i).X + Int((frmMain.Width - 12000) / 15)
                        Else
                            Curr_obj.Width = ControlLocs(i).X + Int((frmMain.Width - 12000) / 15)
                        End If
                        Curr_obj.Top = ControlLocs(i).Y + Int((frmMain.Height - 9000) / 15)
                    End If
                ElseIf LCase(Curr_obj.name) = "picviewport" Then
                    frmMain.picViewport.Width = 384 + Int((frmMain.Height - 9000) / 15)
                    frmMain.picViewport.Height = 384 + Int((frmMain.Height - 9000) / 15)
                End If
            End If
        Next Curr_obj
    Next
    frmMain.Resize.Left = (frmMain.Width) / 15 - frmMain.Resize.Width - 2
    frmMain.Resize.Top = (frmMain.Height) / 15 - frmMain.Resize.Height - 2
End If
End Sub

Private Sub Response1_Click()
    frmMain.Quest.Visible = False
    SendSocket Chr$(106) + Chr$(1)
End Sub

Private Sub Response2_Click()
    frmMain.Quest.Visible = False
    SendSocket Chr$(106) + Chr$(2)
End Sub

Private Sub Response3_Click()
    frmMain.Quest.Visible = False
    SendSocket Chr$(106) + Chr$(3)
End Sub

Private Sub sclMagic_Change()
If MagicMenu = 1 Then
    DrawMagicList
Else
    DrawSkillsList
End If
End Sub

Private Sub ScrollBankPage_Change()
Dim i As Long
CurBankPage = ScrollBankPage.value
RefreshBankPage
BankPageNum.Caption = "Page: " + Str(CurBankPage)
End Sub

Private Sub SkillTimer_Timer()
    If LastSkillUse + 100 < Tick Then
        If SkillKeyDown > 0 Then
            ListIndex = Character.Hotkey(SkillKeyDown - 111).Hotkey
            picList.Visible = True
            DrawMagicList
            Select Case Character.Hotkey(SkillKeyDown - 111).Type
            Case 1    'Skill
                DrawSkillsList
            End Select
            picList_DblClick
        End If
    End If
End Sub

Private Sub txtDrop_Change()
    If Val(txtDrop.Text) > TempVar2 Then txtDrop.Text = TempVar2
    TempVar1 = Val(txtDrop)
End Sub

Private Sub picList_DblClick()
    Select Case lblSkillType.Caption
    Case "Skills"
        UseSkill ListIndex
    Case "Magic"
        UseMagic ListIndex
    End Select
End Sub

Private Sub picList_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ListIndex = Int((Y - 1) / 26) + 1
    If ListIndex > 0 And ListIndex < 13 Then
        Select Case lblSkillType.Caption
        Case "Skills"
            Select Case ListIndex
            Case 1    'Fishing
                lblCurObj.Caption = "Fishing"
                SetObjectInfo "Level " & Character.Skill(1).Level & vbCrLf & "Catch Fish or whatever else may be lurking in the water." & vbCrLf & "Press Esc + F1-F10 to hotkey this Skill"
            Case 2    'Mining
                lblCurObj.Caption = "Mining"
                SetObjectInfo "Level " & Character.Skill(2).Level & vbCrLf & "Dig beneath the earth to find Ore for blacksmithing." & vbCrLf & "Press Esc + F1-F10 to hotkey this Skill"
            Case 3    'Lumberjacking
                lblCurObj.Caption = "Lumberjacking"
                SetObjectInfo "Level " & Character.Skill(3).Level & vbCrLf & "Chop trees to get lumber." & vbCrLf & "Press Esc + F1-F10 to hotkey this Skill"
            Case 4    'Cooking
                If Character.Access > 0 Then
                    lblCurObj.Caption = "Cooking"
                    SetObjectInfo "Level " & Character.Skill(4).Level & vbCrLf & "Cook stuff" & vbCrLf & "Press Esc + F1-F10 to hotkey this Skill"
                End If
            Case 5    'Enchanting
                If Character.Access > 0 Then
                    If ServerDescription = "River Helm" Then
                        lblCurObj.Caption = "LockPicking"
                        SetObjectInfo "Level " & Character.Skill(5).Level & vbCrLf & "Attempt to pick a lock. Click a lock to check its difficulty." & vbCrLf & "Press Esc + F1-F10 to hotkey this Skill"
                    Else
                        lblCurObj.Caption = "Enchanting"
                        SetObjectInfo "Level " & Character.Skill(5).Level & vbCrLf & "Enchant stuff" & vbCrLf & "Press Esc + F1-F10 to hotkey this Skill"
                    End If
                End If
            Case 6    'Smithing
                If Character.Access > 0 Then
                    lblCurObj.Caption = "Smithing"
                    SetObjectInfo "Level " & Character.Skill(6).Level & vbCrLf & "Smith stuff" & vbCrLf & "Press Esc + F1-F10 to hotkey this Skill"
                End If
            End Select
        Case "Magic"
            Dim A As Long, B As Long
            B = -(sclMagic.value)
            For A = 1 To MaxMagic
                If ExamineBit(Magic(A).Class, Character.Class - 1) And Character.Level >= Magic(A).Level Then
                    If Not (Magic(A).MagicLevel = 0 And Character.Access = 0 And ServerPort = 5752) Then
                        B = B + 1
                        If B > 0 Then
                            If B = ListIndex Then
                                lblCurObj.Caption = Magic(A).name
                                SetObjectInfo "Level " + CStr(Magic(A).Level) + vbCrLf + Magic(A).Description + vbCrLf + "Press Esc + F1-F10 to hotkey this spell"
                            End If
                        End If
                    End If
                End If
            Next A
        End Select
    End If
End Sub

Sub DrawInterfaceLights()
    Dim A As Long, B As Long

    'Stats (Button 0)
    If Character.StatPoints > 0 Then
        DrawToDC 0, 0, 7, 7, picButtonLight(0).HDC, DDSInterfaceLights, 0, 0
    Else
        DrawToDC 0, 0, 7, 7, picButtonLight(0).HDC, DDSInterfaceLights, 7, 0
    End If
    picButtonLight(0).Refresh

    'Trade (Button 1)
    If Map.NPC > 0 Then
        B = 0
        For A = 0 To 9
            If NPC(Map.NPC).SaleItem(A).GiveObject > 0 Then B = 1
        Next A

        If B = 1 Then
            DrawToDC 0, 0, 7, 7, picButtonLight(1).HDC, DDSInterfaceLights, 0, 0
        Else
            DrawToDC 0, 0, 7, 7, picButtonLight(1).HDC, DDSInterfaceLights, 7, 0
        End If
    Else
        DrawToDC 0, 0, 7, 7, picButtonLight(1).HDC, DDSInterfaceLights, 7, 0
    End If
    picButtonLight(1).Refresh

    'Sell (Button 2)
    If Map.NPC > 0 Then
        If ExamineBit(NPC(Map.NPC).flags, 2) = True Then
            DrawToDC 0, 0, 7, 7, picButtonLight(2).HDC, DDSInterfaceLights, 0, 0
        Else
            DrawToDC 0, 0, 7, 7, picButtonLight(2).HDC, DDSInterfaceLights, 7, 0
        End If
    Else
        DrawToDC 0, 0, 7, 7, picButtonLight(2).HDC, DDSInterfaceLights, 7, 0
    End If
    picButtonLight(2).Refresh

    'Bank (Button 3)
    If Map.NPC > 0 Then
        If ExamineBit(NPC(Map.NPC).flags, 0) = True Then
            DrawToDC 0, 0, 7, 7, picButtonLight(3).HDC, DDSInterfaceLights, 0, 0
        Else
            DrawToDC 0, 0, 7, 7, picButtonLight(3).HDC, DDSInterfaceLights, 7, 0
        End If
    Else
        DrawToDC 0, 0, 7, 7, picButtonLight(3).HDC, DDSInterfaceLights, 7, 0
    End If
    picButtonLight(3).Refresh

    'Repair (Button 4)
    If Map.NPC > 0 Then
        If ExamineBit(NPC(Map.NPC).flags, 1) = True Then
            DrawToDC 0, 0, 7, 7, picButtonLight(4).HDC, DDSInterfaceLights, 0, 0
        Else
            DrawToDC 0, 0, 7, 7, picButtonLight(4).HDC, DDSInterfaceLights, 7, 0
        End If
    Else
        DrawToDC 0, 0, 7, 7, picButtonLight(4).HDC, DDSInterfaceLights, 7, 0
    End If
    picButtonLight(4).Refresh

    'Guilds (Button 5)
    DrawToDC 0, 0, 7, 7, picButtonLight(5).HDC, DDSInterfaceLights, 7, 0
    picButtonLight(5).Refresh

    'Macros (Button 6)
    DrawToDC 0, 0, 7, 7, picButtonLight(6).HDC, DDSInterfaceLights, 7, 0
    picButtonLight(6).Refresh


    'Inventory (Button 7)
    If picSkills.Visible = False Then
        DrawToDC 0, 0, 7, 7, picButtonLight(7).HDC, DDSInterfaceLights, 21, 0
    Else
        DrawToDC 0, 0, 7, 7, picButtonLight(7).HDC, DDSInterfaceLights, 14, 0
    End If
    picButtonLight(7).Refresh

    'Magic (Button 8), Skills (Button 9)
    If picSkills.Visible = True Then
        Select Case lblSkillType.Caption
        Case "Magic"
            DrawToDC 0, 0, 7, 7, picButtonLight(8).HDC, DDSInterfaceLights, 21, 0
            DrawToDC 0, 0, 7, 7, picButtonLight(9).HDC, DDSInterfaceLights, 14, 0
        Case "Skills"
            DrawToDC 0, 0, 7, 7, picButtonLight(9).HDC, DDSInterfaceLights, 21, 0
            DrawToDC 0, 0, 7, 7, picButtonLight(8).HDC, DDSInterfaceLights, 14, 0
        End Select
    Else
        DrawToDC 0, 0, 7, 7, picButtonLight(8).HDC, DDSInterfaceLights, 14, 0
        DrawToDC 0, 0, 7, 7, picButtonLight(9).HDC, DDSInterfaceLights, 14, 0
    End If
    picButtonLight(8).Refresh
    picButtonLight(9).Refresh

    'Options
    DrawToDC 0, 0, 7, 7, picButtonLight(10).HDC, DDSInterfaceLights, 14, 0
    picButtonLight(10).Refresh

End Sub

Sub ShowBuyMenu(NPCIndex As Integer)
    Dim A As Long, St1 As String
    For A = 0 To 9
        With NPC(NPCIndex).SaleItem(A)
            If .GiveObject >= 1 And .TakeObject >= 1 Then
                St1 = vbNullString
                Select Case Object(.GiveObject).Type
                Case 6    'Money
                    St1 = CStr(.GiveValue) + " " + Object(.GiveObject).name + " in exchange for "
                    If Object(.TakeObject).Type = 6 Or Object(.TakeObject).Type = 11 Then
                        St1 = St1 + CStr(.TakeValue) + " " + Object(.TakeObject).name & vbCrLf
                    Else
                        St1 = St1 + "1 " + Object(.TakeObject).name
                    End If
                Case 11    'Ammo
                    St1 = CStr(.GiveValue) + " +" & Object(.GiveObject).Modifier & " " + Object(.GiveObject).name & " (Ammunition)" + " in exchange for "
                    If Object(.TakeObject).Type = 6 Or Object(.TakeObject).Type = 11 Then
                        St1 = St1 + CStr(.TakeValue) + " " + Object(.TakeObject).name & vbCrLf
                    Else
                        St1 = St1 + "1 " + Object(.TakeObject).name
                    End If
                Case 1, 2, 3, 4, 10    'Weapon
                    Dim St2 As String
                    St1 = "+" & Object(.GiveObject).Modifier & " " & Object(.GiveObject).name + " in exchange for "
                    If Object(.TakeObject).Type = 6 Or Object(.TakeObject).Type = 11 Then
                        St1 = St1 + CStr(.TakeValue) + " " + Object(.TakeObject).name & vbCrLf & "Requirements:  "
                    Else
                        St1 = St1 + "1 " + Object(.TakeObject).name & vbCrLf & "Requirements:  "
                    End If
                    If Object(.GiveObject).LevelReq > 0 Then St2 = St2 & "Level " & Object(.GiveObject).LevelReq
                    If St2 = vbNullString Then St1 = St1 & "<None>" Else St1 = St1 & St2
                    St2 = vbNullString
                Case 8    'Ring
                    Select Case Object(.GiveObject).Data2
                    Case 0    'Damage
                        St1 = "+" & Object(.GiveObject).Modifier & " Damage " & Object(.GiveObject).name + " in exchange for "
                    Case 1    'Defense
                        St1 = "+" & Object(.GiveObject).Modifier & " Defense " & Object(.GiveObject).name + " in exchange for "
                    End Select
                    If Object(.TakeObject).Type = 6 Or Object(.TakeObject).Type = 11 Then
                        St1 = St1 + CStr(.TakeValue) + " " + Object(.TakeObject).name & vbCrLf & "Requirements:  "
                    Else
                        St1 = St1 + "1 " + Object(.TakeObject).name & vbCrLf & "Requirements:  "
                    End If
                    If Object(.GiveObject).LevelReq > 0 Then St2 = St2 & "Level " & Object(.GiveObject).LevelReq
                    If St2 = vbNullString Then St1 = St1 & "<None>" Else St1 = St1 & St2
                    St2 = vbNullString
                Case Else
                    St1 = "1 " + Object(.GiveObject).name + " in exchange for "
                    If Object(.TakeObject).Type = 6 Or Object(.TakeObject).Type = 11 Then
                        St1 = St1 + CStr(.TakeValue) + " " + Object(.TakeObject).name & vbCrLf
                    Else
                        St1 = St1 + "1 " + Object(.TakeObject).name
                    End If
                End Select
                frmMain.lblItem(A) = St1
                frmMain.GivObjPic(A).Cls
                DrawToDC 0, 0, 32, 32, frmMain.GivObjPic(A).HDC, DDSObjects, 0, (Object(.GiveObject).Picture - 1) * 32
                frmMain.lblShopName.Caption = Map.name
            Else
                frmMain.lblItem(A) = vbNullString
                frmMain.GivObjPic(A).Cls
            End If
        End With
    Next A
    frmMain.picBuy.Visible = True
    frmMain.picDrop.Visible = False
End Sub



